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AEDSMAIN 15-Sep-1984 23:47:14  YAX-11_Bliss-32 v4.0-74 
Va-Sep-1986 fi:82:29  EACLEDT°SRESAcoMAticaSés1 


MODULE AEDSMAIN ( cena’ tn teelae 
IDENT = Prirentti : 


VMEWnN— 


So 


ACE after the one being deleted was more than one Line. 


v03-015 LMP0268 L. Mark Pilant, 28-Jun-1984 15:01 
Don't explicitly save the journal file on a QUIT. 


V03-014 LMP0267 L. Mark Pilant, 28-Jun-1984 12:15 


3 ; 

ea 

: 5 ! BEGIN 

: $ 3 , | SeeceenenconenceneeooneonsnesereooneoreseesoneonossooaeenenenesoesesnesaeTes 
Py :* ® 
3 § 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ~ 
5 10 10 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
: 1} 001, : ;* ALL RIGHTS RESERVED. * 
Py : Y 
3 ig ig 1 !@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 14 Bate 1 !@ ONLY IN ACCORDANCE WITH TH R SUCH LICENSE AND WITH THE fe 
3 15 15 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
s 18 i 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 1 1 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 13 dt : i* TRANSFERRED. * 
Py 4 oa 
3 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; g op ; : :* CORPORATION. - 
; 4 0024 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; ; 9 5 : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
> 27 0097 | is ° 
3 ; 4 : ; Lee RRA AAA AERA RAAAAE AERA AEEEAA EEE AAAAAAAAAAAAAAEEREAAAAEEEEES 
: 30 0030 1 !+¢ 

; 1 0031 1! 

3 2 Ones 1! FACILITY: Miscellaneous utilities 

5 3 0033 1! 

3 0034 1 ! ABSTRACT: 

3 5 0035 1! 

; 6 4] 1! This module contains the routines for processing the user's input and 
3 38 O88 : updating the object's ACL in the appropriate manner. 

: 39 5039 1 ' ENVIRONMENT: 

; 40 0040 1! 

ae 0041 1! VAX/VMS operating system, user mode utilities. 

3 rf ek 1! 

2 Bote ti 

> 45 $04 1 / 

3 r4 One ' : AUTHOR: L. Mark Pilant CREATION DATE: 12-Nov-1982 9:50 

; 48 0048 1 i MODIFIED BY: 

: 56 1 v03-016 LMP0291 L. Mark Pilant, 31-Jul-1984 13:15 

3 3) } Correct a bug that caused the editor to loop forever in the 

: 38 1 

3 4 1 

; 5 1 

; § 1 

3 1 
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Add support for an ADVANCE FIELD key. 


v03-013 LMP0250 L. Mark Pilant 4-May-1984 15:42 
Fix a bug introduced by LMP02 & that caused the wrong item 
code to be used when updating ACLs. 


v03-012 LMP0238 L. Mark Pilant 19-Apr-1984 13:32 
Use the size of the ACE for twiddling, when possible. 


v03-011 LMP0230 L. Mark Pilant, 16-Apr-1984 9:25 
Track changes made to the SCHANGE_ACL system service. 


v03-010 LMP0213 L. Mark Pilant 24-Mar-1984 12:23 
Add support for locking and unlocking the object's ACL. 


v03-009 LMP0193 L. Mark Pilant, 15-Feb-1984 9:59 
Add support for additional editor actions: delete to EOL 
reset, and quit. Also move the actual ACL updating to the 
session termination routine. 


v03-008 LMP0172 L. Mark Pilant, 28-Nov-1983 12:11 
Numerous bug fixes, support for VT2xx terminals, and a 
session keystroke logger. 


v03-007 LMP0161 L. Mark Pilant 5-0ct-1983 10:36 
Make sure that the modified ACE gets written out when 
crossing ACE boundaries during a search operation. 


v03-006 LMP0147 L. Mark Pilant 29-Aug-1983 12:46 
Fix a bug that caused the displa to be incorrect when 
un-delet ng.an ACE as the last Line. Also fix a bug that 


caused te display to be wrong when a “U is given in the 
middle of a Line. 

v03-005 LMP0138 L. Mark Pilant, 16-Aug-1983 13:23 
Misc fixes to prompting mode input. 

v03-004 LMP0103 L. Mark Pilant, 20-Apr-1983 11:23 
Add support for HIDDEN ACEs. Also misc fixes to prompting. 

v03-003 LMP0081 L. Mark Pilant 16-Feb-1983 10:20 
Correct some minor bugs with the string searching routines. 

v03-002 LMP0076 L. Mark Pilant, r 11-Feb-1983 13:07 
Add support for a key definition file. 

v03-001 LMP0074 L. Mark Pilant, 21-Jan-1983 16:54 


Random fixes and support for RMS journaling ACE's. 


LIB.L32'; 
BRARY * SYSSLIBRARY : TPAMAC.L52"; 
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QUIRE *SRC$:ACLEDTD 
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10 
18.50 $1984 23:47:14 AX-11 Bliss-32 V4.0-742 
12280871386 1:35:39 ACLEDT.SRC JAEDMAIN.B32;1 
1 FORWARD ROUTINE 
} AED_PROCESSACL : NOVALUE, ! Main processing routine 
: ! The following are routines called based upon the editor action desired. 
1 ACT_RUB_CHR, 
1 ACT_RUB_WRD, 
1 ACT_RUB_BOL, 
1 ACT_DEL_CHR, 
1 ACT_DEL_WRD, 
1 ACT_DEL_EOL, 
1 ACT_DEL_ACE, 
1 ACT-UNDEL_CHR, 
1 ACT_UNDEL_WRD, 
1 ACT_UNDEL_LIN, 
1 ACT_UNDEL_ACE, 
1 ACT_MOVE_WRD, 
1 ACT_MOVE_ACE, 
1 ACT_MOVE_BOL, 
1 ACT_MOVE_EOL, 
1 ACT_UP, 
1 ACT_DOWN 
1 ACT-RIGHT, 
1 ACT_LEFT, 
1 ACT_TOP 
1 ACT~BOTT 
1 ACT-FIND_STR, 
1 ACT_FIND-NXT, 
1 ACT-ADV_FIELD, 
1 ACT_SEL_FIELD, 
1 ACT_SEL_ITEM, 
1 ACT_HELP 
1 ACT-REFRESH, 
1 ACT_ENTER 
1 ACT-INSERT, 
; ACT_EXIT, 
: ! The following are common ACE text manipulating routines. 
! F INISH_ACE : NOVALUE; ! Tie off the ACE 
1 EXTERNAL ROUTINE 
1 AED_PUTOUTPUT, ! General purpose output routine 
1 AED_GIVEHELP, ! Interactive nee routine 
1 AED_UPDATEACL ' Update file's ACL 
1 AED_SET CURSOR ! Set cursor position 
1 AED-SELECTFIELD : NOVALUE, i Select next ACE field 
1 AED_SELECTITEM =: NOVALUE, ' Select next ACE item 
1 AED_SETACETYPE NOVALUE, ' Set ACE type text 
1 AED_COMPRESS NOVALUE, ' Compress the display 
1 AED_POSITION NOVALUE, ' Position to selected line 
1 AED_COPSEGMENT, } copy segment to working storage 
1 AED_REPSEGMENT, : ber ace with working storage segment 
1 AED_SEGSPLIT, ! Split segment into two pieces 
1 AED_SEGCOMBINE, ' Combine two Line segments ; 
: AED_DECODEKEY; ! Key action decoder 
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TER 
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SEARCH~STRING 
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: SBBLOCK CDSCSC_S_BLNI, 
: REF SBBLOCK, 


: REF S$BBLOCK, 
: REF S$BBLOCK, 


1S-sep-19 4 $336 
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29 ACLEDT. AE 


! Macros to make working with Line segments easier. 


BUFFER_CHAR = INPUT_BUFFERC.BUFFER_INDEX] %; 
! Storage used by all the routines in this module. 


! Index into input storage 

! Text echoing descr 
Temp copy of Line number 
Address of Line removed 
Address of ACE removed 
Address of new Line storage 
Chars checked by ACL parser 
Index for combining segments 


EF $BBLOCK, Temp Line pointer 
ECTOR C1,BYTE], Character/code input 
ECTOR C1,WORDJ Search string size 
ECTOR (512,BYTE); Search string buffer 


AED_T_CURLINECLINE_W_SIZEJ : WORD, 


! Input Line segment size 
AED 5 OU TREC INET ENTS : VECTOR C,BYTE); 


nput Line segment text 
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vo AED_PROCESSACL = main processing loop 


b 500-1984 $9790:16 el Bliss-32 V4.0- 


-Sep-1 : 


74 
ACLEDT.SRCJAEDMAIN.B32; 1 


1 

= 1 
: 7 1 2SBTTL ‘AED _PROCESSACL = main processing loop’ 
: 8 } GLOBAL ROUTINE AED_PROCESSACL PNOVALUE © - 
; ? : hed 
; ¢ | | FUNCTIONAL DESCRIPTION: 
: tt This routine is the main processing loop for the ACL editor. It 
3 > accepts the users input, which or be a new ACE or modifications 
: § : to an existing ACE, and updates the in core ACL as appropriate. 
; 38 1 § CALLING SEQUENCE: 
: : AED_PROCESSACL () 
: 1 1 | INPUT PARAMETERS: 
: § ; } none 
; Bee 1 | IMPLICIT INPUTS: 
3 ME AED_W_TERMIN: terminal input channel 
3 2o08 1! AED_Q_LINETABLE: input Line text queue 
: +et4 : : AED_L_CURACE: address of current ACE 
; 0669 1 | OUTPUT PARAMETERS: 
7 Td Saittees 
; : 0672 1! IMPLICIT OUTPUTS: 
3 0675 1! AED_L_FIRSTLINE: address of first Line segment of ACE 
: bere ; AED_L_LASTLINE: address of Last Line segment of ACE 
; 0676 i ROUTINE VALUE: 
; 0677 1! none 
3 0678 1! 
: 79 1°! SIDE EFFECTS: 
; 2 : } The object's ACL is appropriately modified. 
; 068¢ 1 ie 
3 1 
3 84 2 BEGIN 
; $688 LABEL 
; eet INPUT; ' User input loop 
: 9 2 LOCAL 
; 90 LOCAL_STATUS ' Local routine exit status 
; 91 SPLIT~SEGMENT : REF SBBLOCK, i Pointer to remaining text 
: SPLIT_SIZE; ! Size of remaining text 
; ! Initialize all variables and flags. 
; CHSFILL (0, DSC$C_S_BLN, ECHO_DESC); 
; CHSMOVE (DSC$C_S BLA, ECHO_DESC, AED_Q_DEL_WORD); 
$ CHSMOVE COSC SCS BLN, ECHO_DESC, AED_Q_DEL_LINE); 
: AED_B_DEL_CHAR = 0; 
; BUFFER_INDEX = 0; 
: ! Set up initial display variables. 
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15-Sep-1984 $3:92:18 rth Bliss-32 V4.0-742 


7 
AED_PROCESSACL = main processing Loop ep-1 ACLEDT.SRC JAEDMAIN.B32;1 


7 END; 
7e¢ END; 
g AED_L_BEGINLINE = .AED_Q_LINETABLECLINE_L_FLINKI; 
765 ' —_ gesting characters from the user until an End-Of-File is seen. When 
708 ! an EOF is seen, it indicates the end of the session. 
r mnie 1 
+98 INPUT: BEGIN 
771 TERM_CHAR = AED_DECODEKEY (); 
77 If .TERM_CHAR EGL O THEN RETURN; 
ae IF ,AED_C_FLAGSCAED_V_ACERROR] AND .AED_L_FLAGSCAED_V_SCOPE) 
0775 4 BEGIN 
B78 4 SCRSERASE_ PAGE (21, 1); 
O77 4 AED_SET_CORSOR (.AED_B LINE, .BUFFER_INDEX + 1); 
778 4 AED-L_FCAGSLAED_V_ACERROR] = 0; 
1h END; 
Ore ! Choose the appropriate action based upon the character typed. 
ores ae ~AED_L_FLAGSCAED_V_ACTIONKEY] 
0785 4 BEGIN 
0786 4 CASE .TERM_CHAR FROM 1 TO KEY_C_MAX_CODE-1 OF 
1 rd 
144 ? ! Actions to delete text. 
O79 ‘ CKEY_C_RUB_CHRI: ACT_RUB_CHR (); 
Ores 6 CKEY_C_RUB_WRD): 
b79e 2 LOCAL_STATUS = ACT_RUB_WRD (); 
0796 5 IF NOT -LOCAL_STATOS TREN RETURN; 
0788 ? END; 
3444 2 CKEY_C_RUB_BOL): ACT_RUB_BOL (); 
9801 ‘ CKEY_C_DEL_CHRI: ACT_DEL_CHR (); 
608 4 CKEY_C_DEL_WRD): 
805 ; LOCAL_STATUS = ACT_DEL_WRD (); 
BOS IF NOT eLOCAL_STATOS TREN RETURN; 
rit 2 END; 
b09 4 CxEV C,DEL COL): 
811 LOCAL_STATUS = ACT _DEL_EOL (); 
Big IF NOT -LOCAL_STATOS TREN RETURN; 
tf - 
O83 4 CKEY_C_DEL_ACE): 
O81 3 LOCAL_STATUS = ACT_DEL_ACE (); 


B00" AED_PROCESSACL = main processing Loop 180-1984 49:63:36 = FARCE SaeSa 
JF NOT .LOCAL_STATUS THEN RETURN: 


!' Actions to restore deleted text. 


CKEY_C_UNDEL_CHRJ: ACT_UNDEL_CHR (); 
CKEY_C_UNDEL_WRD): ACT_UNDEL_WRD (); 
CKEY_C_UNDEL_LIN): ACT_UNDEL_LIN (); 


(KEY. C_UNDEL_ACE): 
GIN 


LOCA STATUS = ACT_UNDEL_ACE (); 
F NOT -LOCAL_STATOS THER RETURN; 


! Actions to move through the ACL independant of the direction. 
CKEY_C_UP): 
GIN 


00 Cd Cd Cd CD CD CD CO: o 


4 
4 
4 
4 
4 
4 
4 
4 
7 
4 
4 
4 
4 
4 
LOCAL STATUS = ACT_U 
re ? F NOT -LOCAL. sthtoe” THe RETURN; 
0842 4 : 
ages 4 CKEY_C_DOWN): 
0845 ; LOCAL STATUS = ACT_DOWN (); 
9 § F NOT .LOCAL_STATOS THEN RETURN; 
BcB Nn: 
5 44 4 CKEY_C_RIGHT]: ACT_RIGHT (); 
0881 4 CKEY_C_LEFTJ:  ACT_LEFT (); 
0858 4 CKEY_C_TOP): 
855 LOCAL STATUS = ACT_T 
t4] : F NOT -LOCAL_ stATOS 1 TWEN® RETURN; 
408 858 4 ‘ 
409 59 4 (Key_C BOTTOM): 
411 1 et STATUS = ACT_BOTTOM ( 
ie > NOT .LOCAL_STATOS THEN neiURW: 
414 0 4 
he 5 ? ' Set the a: of the move. 
‘i? 4 (key_C ADVANCE): 
a8 AED " _FLAGSCAED_V BAC CKWARD) = 0; 
420 9 AED“L SFLAGS AED“V“ACTIONKEY) = 0; 
421 7 TERM_CHAR = 0; ~ 
is 6 si 
424 7% 4 CKEY_C_BACKUP): 


$3 
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NOW 
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AED_PROCESSACL = main processing loop 


CHAR = 0 


HPeBeo-1966 9842216 


? GIN 

re A D_L_FLAGSEAED_v BACKWARD] 21: 

, AEDTL“FLAGSCAED-V-ACTIONKEY) = 0; 
4 oO 


TERA_ 
END; 


CKEY_C_MOVE_WRD): 
CKEY_C_MOVE_BOLJ: 
CKEY_C_MOVE_EOL]: 
CKEY_C_MOVE_ACE: 
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CKEY_C_FIND_STRI: 
BEGIN ~ 


BISAE 


oO 
(09 0d Od Cd CO Cd Co Co CD 


0899 END; 
1 CKEY_C_FIND_NXT): 
0991 BEGIN ~ 


oO 
ox 


332333 


MAE EEE PNA FSU BAUME SEE PE NUIE BAUS FB PUNE FRPP RPE EE 


CKEY C_ADV_FIELD): 
IN 


CKEY_C_SEL_FIELD): 
BEGIN ~ 


33333333 
onooovnovono 
ed 


NOUS WN —OOONOUS WN —O 


CKEY_C_SEL_ITEM): 
BEGIN ~ 


o 


oO 


CKEY C_GOLDJ: 


—s 


! Miscellaneous editor actions. 


! Advance through the ACL based upon the direction chosen. 


ACT_MOVE_WRD (); 
ACT_MOVE_BOL (); 
ACT_MOVE_EOL (); 


LOCAL_STATUS = ACT_MOVE_ACE (); 
IF Nor -LOCAL_STATOS THEN RETURN; 


LOCAL_STATUS = ACT_FIND_STR (); 
IF NOT .LOCAL_STATOS THEN RETURN; 


LOCAL_STATUS = ACT_FIND_NXT (); 
IF Not -LOCAL_STATOS THEN RETURN; 


! Advance through an ACE using fields and items. 


LOCAL _STATUS = ACT ADV FIELD (); 
pf wr -LOCAL_STATOS TREN RETURN; 


LOCAL_STATUS = ACT SEL_FIELD (); 
IF NOT .LOCAL_STATOS TREN RETURN; 


LOCAL_STATUS = ACT SEL_ITEM (); 
If not -LOCAL_STATOS TREN RETURN; 


N 
AED_L_FLAGSCAED_V_GOLDKEY) = 1; 


10 
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$5 
: 


LOCAL_STATUS = ACT_INSERT (); 
IF nor -LOCAL_STATOS THEN RETURN; 


rn AED_L_FLAGSCAED_V_ACTIONKEY ; 
¢ mms 
4 END; 
¢ 2 CKEY_C_HELP) 
4 GESIN 
4 AED_L_FLAGSCAED_V_ACEFORMAT) = 0; 
4 9 ACT-HELP Q; 
t93 i CKEY_¢ sent 
198 § BESIN . 
494 AED_L_FLAGSCAED_V_ACEFORMAT] = 1; 
$39 5 ACT HELP 0; 
a3 Baty ped 
499 3 6eCIn 
00 50 LOCAL_STATUS = ACT_ENTER (); 
01 51 IF NOT .LOCAL_STATOS THEN RETURN; 
4 2g END; 
bi 54 CKEY_C_INSERT): 
05 55 BEGIN . 
$ 
5 
58 
59 


0360 CKEY_C_REFRESH): ACT_REFRESH (0); 
03 CKEY_C_RESET): ACT_REFRESH (1); 
o308 CKEY_C_EXIT): 

965 BEGIN 


LOCAL_STATUS = ACT EXIT (0); 
IF nor -LOCAL_STATOS THEN RETURN; 


CKEY C_ Quit): 


MIPOFEPoPOPoPofory 
SVSNAARUIN SOHNE NR WN sOSR US 


? ACT EXIT (1); 
97 RE TORN; 
are ; 

, CKEY_C OVERS TRIKE: 

7 AED _L_FLAGSCAED_V_OVERSTRIKE] = NOT .AED_L_FLAGSCAED_V_OVERSTRIKE); 
44s LEAVE INPUT; 


Wwt— 
oO 

CoCD CD 
wnr— 


CKEY_C_DEBUG): 
BEGIN 


PUPS SVT ES BS BS UI SS BS BS II SS BS BS II BS BB BB ET BPE BENIN BF PANIES PHN 


PUPP PVDPVPUDPU DVD PUDPVDPUDVDVDVDVDVPUDVLVSLVLIV DESPUES SISSON 


84 LOCAL PREV_HANDLER; 
5 985 EXTERNAL ROUTINE LIBSSIGNAL : ADDRESSING_MODE (GENERAL); 
3B ! If the debugger is not present, this is a no-op. 


Be Se Se Se Se Se Se Se Se Ge Be Ge Se Se Be Ge Se Se Se Sse Ge Ge Se Se Fe Ge Se Ge Se Se Se Se Se Se Se Ge Se Se Se Gs Ge Ge Ge Se Se Ge Fe Ge Se Ge Ge Ge Se Ge Ge Ge ee 
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SSETEXV ys By | = 0, P eave Tere ROL ERD § 
iF PREV_HANDLER EQL 0 
SETEXV TWECTOR = 0, A PREV, NHANBLER) ; 
! Enter the debugger. 


screst! CURSOR (21, 1); 


8 
: 


sertet (SS$ Stéue): 
Schss E asuRsor ? AED_B.LINE, .AED_B_COLUMN); 
ERove 


S3S33 338238 


! End of the ACTIONKEY case statement. 


RRUNLSSHVEARGRHOS 


: 1 4 

oe € 

; 4 4 CINRANGE , OUTRANGE): LEAVE INPUT; 

: 1005 TES; 

; : END; 

; ry ' 8 ! See if it is necessary to continue. 

; i 1910 IF .TERM_CHAR EQL 0 THEN LEAVE INPUT; 

: $¢ 1912 ! If the current ACE is marked as untouchable, no modifications are allowed. 
: 564 1912 IF .AED_L_FIRSTLINECLINE_V_NOTOUCH] 

3; 565 oF i THEN gin 

; $$ 1017 4 SIGNAL (AEDS _NOMODIFY); 

; 568 1018 4 LEAVE INP 

; 569 1019 

; $70 1020 

; a 1 ! Carriage return - terminate current Line segment 

; 38 1098 IF NOT -AED Lt FLAGSCAED V_ACTIONKEY] 

3: 574 1024 THEN SELECTONE . TERM_CHAR™O 

: 575 1025 

3; 57 1 $ C%x'0D'): 

: ? i 4 BEGIN 

; 79 \} , ? ! Tie off the end of the current segment. 

: 581 1031 4 AED.L FLAGSCAED V FIRSTCHARI = 0; 

: a 1 : 4 iF AED ED Lert GSTAED_V_PRO 

3 i é ER RU INDEX GEQ~ OPOMENT SIZE 

3 BS 1035 N 

3 36 1 IF . INPUT_BUFFERC .BUFFER_INDEX = iF re 
: 58 1 AND - INPUT BUF FERE .BUFFER_ INDEX - q fs 
3 1 AND .INPUT~BUFFER sBUEFER INDEX = 1) NEQ ")* 
3 9 1 AND NOT .AED L FLAGSCAED_9_OPENUIC) 

: 1040 AND .AED B FYECD LSS 2 

: 591 1041 AND .SEGMERT_SIZE GTR 0 

3 4 | § THEN 

; 59 BEGIN 

3; 594 1044 BUFFER_CHA '. 

: 595 1045 ECHO_DESCCDSC$wW_LENGTH) 


© «det +47: 2 e | 
vous000" AED_PROCESSACL = main processing loop 13-Sep-1984 $9:93:35 AELeDT SRESAEOMA II-B Soe) sbes Rid 
ECHO_D Schesesa pointen? s BUF FER_CHAR; 


3 1 

; 3$ 1 § AED_PUTOUTPUT (ECHO_DESC); 

3 38 1 AED_B COLUMN = .AED B COLUMN + 1; 

3 1 BUFFER mit = .BUFFER_INDEX + 1; 

; oRy : : SEGMENT _SIZE = .SEGMENT_SIZE + 1; | 
: 6 1 4 END; 

: 808 1088 

; 604 1054 4 ! Split the Line. 

; 605 1055 4 

; O08 : $ 2 NEW_TEXT_LINE = AED_SEGSPLIT (BUFFER_INDEX, 1, 0, 0); 

FH oo ; 28 2 ! See if a new prompt string is necessary. 

: 610 1060 4 IF .AED_L_FLAGSCAED_V_PROMPT] 

; 611 1061 4 AND NOT” .AED_L_FLAGSCAED_V_OPENUIC) 

: ol¢ 1 § 4 AND NOT .AED_L_FLAGSLAED_V_NOITEMSELJ 

; 61 1 4 AND .AED_L_LASTLINE F LA AED_T CURL INECL INE _L_FLINKI 

; 614 1 4 AND .AED_L_FIRSTLINECLINE_L_BINACE) EQL 

; 615 1065 4 

3 olg 1966 BEGIN 

; 61 106 AED_L_FLAGSCAED_V_NOITEMSEL] = 0; 

; 618 1068 AED SELECTPIELD (BUFFER_INDEX); 

; 619 1069 ECHO DESC DSC W_LENGTH) = .AED_T_CURLINE LINE W SIZE): 
; 620 pny ECHO _DESCCDSCSA_POINTER) = AED _T_CURLINECLINE_T_TEXT); 
; 621 1071 SCRSSET_CURSOR T.AED_B LINE, 13; 

3; 6 ¢ 1376 AED _PUTOUTPUT (ECHO _BESC); 

; 6 107 SCRSERASE_LINE (.AED B_LINE, .SEGMENT_SIZE + 1); 

3 ose ee : ae -B_COLOMN = .BUFFER_INDEX + 1; 

; 626 O78 4 AED_SET CURSOR (.AED_B_LINE, .AED_B_COLUMN); 

; 627 1077 4 AED-L_FCAGSCAED_V_INSERTEXTI = 1; 

:; 628 44 4 4 AED L_FLAGSCAED_V_GOLDKEY] = 0; 

3; 629 1079 4 LEAVE” INPUT; 

3; 6 1080 3 

3 $3) 1081 

 ¢ $ 1356 ! ALL other characters 

; 63 108 

; 634 1084 COTHERWISE): 

3; 635 1085 4 BEGIN 

3 O38 1986 4 

3 rats 1088 2 ! Check for special characters. 

: 639 1089 4 IF .TERM_CHAR LSS * * THEN LEAVE INPUT; ! Ignore control chars 
3; 640 1090 4 AED_L_FLAGS AED_V_MODIFIED) = 1; 

: 641 1091 4 AED_L_FLAGSLAED V_FIRSTCHAR) = 6; 

; 648 1 4 IF TTERM_CHAR GEQ™'a' AND .TERM CHAR LEQ ‘2° 

3 oe 1093 4 OR .TERM CHAR GEQ ZX"EO* AND .TERM_CHAR LEQ &x‘FE* 

3 o66 : i : THEN TERA_CHAR = .TERM_CHAR = 32; ~ ! Lower to upper case letters 
: 046 1 4 4 ! Echo the character just typed at the current position or split the Line and 
3 o : i ? ! echo the character. 

: ro 1999 IF (.BUFFER_INDEX GEQ .AED_L_PAGEWIDTH) 

; 650 1100 OR (NOT .AED_L FLAGSCAED V-OVERSTRIKE) 

: 651 1101 AND .SEGMERT SIZE GEG [AED LpAGw BTM) 

3; 652 1102 4 THEN AED_SEGSPLIT (BUFFER_INDER,~0, 0, 0); 


$5 
4 


Be Se Se Se Se Ge Ge Ge Se Fe Se SF Ss Gs Ge Ss Ge Se Ss Ge Se Se Se Se Se Se Ge Se Se SO Se Se Se Se Se Ge SH Ss Ge Ge Se Ge 


AACA 
SOEs ae 


SESESESE 


ag 
SANS 
ONOULSWN—OO 


PAAAAAA AOS 
~~ 


PEVISSEESSEERESS 
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CHO_ ope EDSE RA C$w_ LENGTH) = 


ECHO pesctD POINTER: : fern, CHAR; 
echo DESC); 


! If the chara $4 was entered in insert mode, move all of the characters 
! over one position. 


iy. BUFFER NDEX LSs . SEGMENT _SI 
+ Mg T .AED_L_FLAGSCAED_V_OVERST 


sv.tE LENGTH] = Bry ity mane - .BUFFER_INDEX; 
% POINTER] = BUFFER_CHA 
R 
0 


ECHO DESC); 
(AE «BUFFER INDEX + 2); 


$0 
CH bestroeetu “EEnGtHa, BOFFER_CHAR, 
2 = .BUFFER_INDEX - 1, INPUT_BUFFERC.BUFFER_INDEX + 1)); 


oO at be tt tt 


FUN —O OCONAUE WN" OOONOAUE WIN“ OVOOVNOVEWNO 


IF .TERM_CHAR EQL °C" THEN AED_L_FLAGSCAED_V_OPENUIC) = 1; 
IF .TERM_CHAR EQL ‘J* THEN AED-L-FLAGSCAED_V_OPENUIC] = 0; 


! Now put the entered character into the Line buffer. 


BUFFER_CHAR = .TERM_C 
a Bre INDEX = BUFFER | Tivex + 1; 
B_COLUMN = .BUFFER_INDEX + 1; 


! If in insert seed the segment size has grown by one character. 


If wor -AED_L_FLAGSCAED_V OVERSTRIKE) 
OR .BUFFER INDEX GEQ gs66 REN 

THEN SEGHERT T SIZE = erent Nt agit +1; 
He _L_FLAGSCAED_V GOL DKEY 


a ee ee ad a ed od od ed od ed 
a ee ee ee ee ee ee ed ed ed ed 
Se bt ot tt tt ot ee ee ee eS 


3 

6 TES; 

2 END; 

4 RETURN; 

4 END; ! End of routine AED_PROCESSACL 


TITLE AEDSMAIN 
-IDENT \v04-000\ 


-PSECT AED_COMMON,NOEXE, OVR,O 
00000 AED_L_FLAGS: 

-BLKB 
00004 AED_B_OPTIONS: 


- we £ 


90005 “BLKB 
0008 AED_L_OBJTYP: 

-BLKB 
0000C AED_0_OBJNAM: 


[mE 


10 
voue000" AED_PROCESSACL = main processing loop 1B-te Haat yi 73 5: 3 ACLeDT® sR ¢ AESMATA Bsoe1 i 3} 


00014 AED_L _WonSTERR: 
00018 AED_L vag 0 Yaaee 
O0001C AED_L shee “t-' e 
00020 AED_B -coL tin: 
0021 -BLKB 
0024 AED_B_LINE: 
“BLKB 

$0038 8 AED_B_ SAVE COL: 


90 029 -BLKB 
02C AED_B_SAVE LIN: 
-BCKB 
0002D 


*BLKB 
000 AED_Q -LINETABLE : 
0003C AED_L -CURACE : 
00040 AED_L_ -FIRSTLINE: 
00044 AED_L_LASTLINE: 
00048 AED_L_BEGINLINE: 
.BLKB 
0004C AED_W_INPUTLEN: 
-BLKB 


0004 ~-BLKB 
00050 AED_Q_DEL_ACE: 


BLK 
00058 AED_Q_DEL LINE: 
00060 AED_Q_DEL WORD: 
00068 AED_B_DEL CHAR: 


-BLK 
00069 -BLKB 
0006C AED_A_ACLBUFFER: 


-BLK 
00070 AED_Q mae ti ¥ 
00078 AED_W_OBJCHAN: 

-BLKB 


OO7A -BLKB 
007C AED_W ~TERMIN: 


mn ht ete weet ih oe ee oe 


~™ 


poe -BLKB 
AED_W_TERMOUT : 
-BL ‘e 


008% AED_v_ 1088" 


0008C AED_L_STATUS: 
| 
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,BLKB 
00090 AED_8 fie 


me 
Or 
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$6094 94 AED_W ittite. 
-BLKB 


80098 AED_W “Fie: 


009A “BLKB 
09C AED_B_ITEM: 

-BLKB 

90090 “BLKB 

OOAO AED_W_ITEMBEG: 

-BLKB 

OOA2 “BLKB 

OOA4 AED_W_ITEMEND: 

-BLKB 

00A6 “BLKB 

OOA8 AED_B_ACETYPE: 

-BLKB 


000A9 -BLKB 
OOOAC AED_W_JOURNAL : 
~BLKB 


mn Ww NNR POR Ww ROR POR Wwe 


site -BLKB 
00080 AED_T_CURLINE: 


-BLKB 532 
002C4 AED_W_TOTALSIZE: 

BLKB 2 
90206 “BLKB 
002C8 JOURNAL_FAB: 

-BLKB 80 
00318 JOURNAL _NAM: 

-BLKB 96 
00378 JOURNAL_RAB: 

-BLKB 68 
003BC JOURNAL_XABPRO: 


~BLK 
00414 JOURNAL_BUFFER: 
BLKB 


0041 *BLKB 2 
00420 JOURNAL_INDEX: 


-BLKB 4 

00424 RECOVER_FAB: 

-BLKB 80 
00474 RECOVER.NAN: 
00404 RECOVER_RAB: 

-BLKB 68 
00518 RECOVER_BUFFER: 

~BLKB 


00522 -BLKB 2 
00524 RECOVER_INDEX: 
-BLKB 


«PSECT SOWNS,NOEXE ,2 
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IERcHals 


00000 BUFFER. ar 
00004 ECHO_ Dest: 
OO00C TEMP_ Line: 
00010 REMOVED tine: 
00014 REMOVED At: 
00018 NEW_TEXT_LINE: 


“BLKB 
0001C CHAR_PROCESSED: 


BLK 
00020 APPEND. INDEX: 
00024 DUMMY_LINE: 
00028 TERM_CHAR: 


00029 -BLKB 
0002C SEARCH_SIZE: 
-BLKB 


0002E -BLKB 
00030 SEARCH STRING: 


SEGMENT SIZE= 
INPUT OOF ECR s 


4 AX-11 Blis V4.0-742 
2:29 ACLEDT’S RC APSHA B Sot 
4 
8 
4 
4 
4 
4 
4 
4 
4 
1 
3 
2 
2 
512 
AED_T_CURLINE+8 
AED-T~CURLINE+20 
CLISGET- VALUE, CLISPRESENT 
LIBSFREE_VM, LIBSGET VM 
LIBSTPARSE. SERSDOUNTSCR 
SCRSERASE_LINE, SCRSERASE PAGE 
SCRSSET_CORSOR. SCRSSET SCROLL 
SCRSUP SCROLL, A AEDS_OBJCOCKED 
AED$_BADKEEP, AEDS_ COCATERR 
AEDS“INIREADERR 
AEDS JOUWRIT ERR 
AED$_JOUOPENOUT 
AEDS_JOUCLOSOUT 
AEDS-RECREADERR 
AED$“RECOPENIN AEDS$_RECLOSEIN 
AEDS-BADUIC, AED$_BADGRPMEM 
AEDS-SYNTAX, AEDS~BA 
AEDS-NOITEMSEL, AEDS_MUSTENTER 
AEDS_INIOPENIN, AEDS_INICLOSIN 
AEDS_DEFSYNTAX, AEDS-NODELETE 
AEDS-NOMODIFY NOHIDDE 
AEDS “DUPLICATE. AEDS_NOCOMBINE 
AEDS"NODEFAULT. AEDS-NOCTRLCHAR 
AEDS“NOTFOUND. *AED$_CONTROL_C 
AEDS-ACLUPDATE 
AEDS$~NOCH ANGE , hep PUTOUTPUT 
AED_GIVEH DOP PDATEACL 
D7SET eet SELECTFIELD 
D7SELECTI AED ~SETACETYPE 
D-COMPRES aa te POSITION 


~-o 


| 
| 
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1 

| 


~COPSEGHENT , AED_REPSEGMENT 
“SEGSPLIT, AED_SEGCOMBINE 

“DECODEKEY, LIBSSIGNAL 
ETEXV 


-PSECT SCODES,NOWRT,2 
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SMAIN 1-5 -1984 
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x 
x 


OFFC 00000 ENTRY AED, PROCESSACL, Save R2,R3,R4,R5,R6,R7,RB,- ; 0648. 
5B 000000006 00 9€ 0000 MOVAB CCASERASE. LINE, af}! : | 
SA 00006 CF 9E 0000 MOVAB AED _PUTOUTPUT R19 : 
39 000000006 00 9E 9006 MOVAB SCRSSET CURSOR : 
8 0000' CF 9E 0001 MOVAB BUFFER_INDE ag” : 
57 0000" CF H OO1A MOV AED_L_FLAGS, a : 
SE 04 5 OO1F SUBL2 #4, F 
08 00 6E 7 00 C 000¢¢ mOvCS #0. (SP), #0, #8, ECHO_DESC + 0696 
60 A? 04 As 08 38 $6059 moves is: ECHO_DESC, AED_Q_DEL_WORD : 0697 
58 «A7 04 As 08 28 O00¢F MOVC ECHO DESC. AED~Q-DEL-LINE : 0698 
68 A? 94 00035 CLRB B DE > 0699 
68 04 ks CLAL AED 8 IN : 0700 
50 A? 50 A? JE 0003A MOVAB AED_Q_BEL_ACE, AED_Q_DEL_ACE : 0704 
54 SOA 50 A? 4 0003F MOV D-Q"DEL “Q"DEL-ACE+4 + 0705 
67 1040 BF AS 00044 BISW2 #41607 AED_L FLAGS + 0707 
-50 30 A? YE 00049 MOVAS AED_Q_LINETABLE, 3 0714 
50 30 AZ 01 00040 CMPL § AED-Q“LINETABLE, R F 
69 12 00051 BNEQ 2$ ~ ; 
67 4020 8F AS 00053 BISW2 #16416, AED wir : 0718 
00B8 C7 B4 00058 CLRW  SEGMENT_SIZ ES : 0719 
0204 C7 B84 0005C CLRW rt; ED_W_TOTALS : 
34 B87 0080 ¢7 OE 00060 INSQUE AED~ “TH CORL INE. F aAED. Q_LINETABLE+4 : 0720 
50 00B0 €7 9E 00066 VAB_ AED T~CURLINE : 0721 
44 AZ 50 DO 00068 MOVL RO, ~AED_L_LASTLINE ; 
40 A? 50 DO O006F MOVL RO, AED Dt “FIRSTLINE ; 
OA AO 01 BO 00073 MOVW 8=o#1. 1 : 0722 
3c = AZ-—s«#4 «00077 CLRL = AED_L ait RACE : 072 
01 A? 95 OOO7A TSTB = AED L=FLAGS+#1 : 0724 
03 19 0007D BLSS ; 
QOAE 31 0007F BRW 7$ ; 
00A8 C7? 94 90082 1$: CLRB AED _B_ACETYPE : 0727 
02 A7 08 BA 00086 BICB2 , AED_L_FLAGS+2 : 0728 
58 DD 0008A PUSHL 43 : 0729 
00006 CF 01 FB 0008C CALLS HP AED SELECTFIELD F 
04 Ag 008 C7 80 0091 MOVW T_CORLINE +8 ECHO_D : 0730 | 
08 A 0C4 C7? 9E 00097 MOVAB AED-T “CURLINE+20, ECHO_ FP Sc, : 0731 | 
01 DD 0009D PUSHL #1 ~ : 0732 
7E 24 AZ 9A O009F MOVZBL AED_B LINE, -(SP) : 
69 08 FB 000A3 CALLS SCRESET_CURSOR ; 
04 AS OF OOAG PUSHAB EC : 0733 
6A 01 FB OOOA CALLS KED_PUTOUTPUT : 
7E 0088 C7 3¢ OOAC MOVZWL SEGn MENT“SIZE, -(SP) : 0734 
3 D6 00081 INCL (SP * : 
7E 24 A? OA 0085 MOVZBL LINE, -(SP) ; 
02 FB 000B CALLS DB RSERASE _LINE : 
62 11 OOOBA BRB : 0735 
30 A? DD OOOBC 28: PUSHL A D_Q_LINETABLE > 0741 
00006 CF 01 FB O00BF CALLS , AED_COPSEGMENT ; 


30 
4G 
40 
02c4 
1F OA 
6a 
ab 
02¢4 
3C 
02 
00006 
A7 
00006 
48 
00006 
28 
20 
1¢ 
000000006 
7E 
00006 
03 02 
28 
pica 
098 
008D 
OOBE 
QOED 
011 
Boag 
016 
0063 
0151 
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AED. CUAL II Aro. Q_LINETABLE 
CURLINE 


vith 


r.w=Ov8 1 
— FO 


» AED_L_LASTLINE 

one. L_LASTCINE, AED_L_LASTLINE 
AED_C_CASTLIN 

(RO)> AED_W_TOTALSIZE 


ELECTEIELD 
LUAN,. =($P) AED_B_COLUMN 


a 
LT at AED _L_BEGINLINE 


a2, SCRSERASE PAGE 
“i, 4ii8 INDEX 

A ") BL (SPS 
ret, “RED wet CURSOR 


LAG 
“AED va FLAGS?2, 
M wey #1, #40 


-(SP) 


WAIN @ FSM LLMVMNLS AGCBsBs 
FMW OO 1 re oom FoF walk 


R 
$-T 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
$-1 
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yO4~000 AED_PROCESSACL = main processing loop 12-808- 198 $9:95:3§ ACLEDT. RESACOMAIN-BS301 ore Aid 
$-12$,- 3 
195-133 -- os 
$5188 Ba 
-12$,- 3 | 
Ss $,- 3 
$-12$,- 3 
0$-12$,- 3 
$$-1 $;- : 
47$-12$,- : 
55$-12$,- : 
sig : 
gs §,- é 
$-12$.- : 
8$-12$.- : 
9$-12$,- 3 
5$-12$.- : 
668-1 $:- : 
6$-12$.- : 
14$-12$.- : 
15$-12$.- : 
ens! $,- ‘ 
8$-12$,- : 
59$-12$.- : 
62$-12$.- ; 
64$-12$,- 3 
13$-12$ : 
FF6E 31 001c4 BRW as : 1003 
0000v CF 00 FB OO1C7 13$: CALLS #9 ACT_RUB_CHR : 0791 
97 11 001CC BRB 10$ : 
0000v CF 00 FB OOICE 14$: CALLS #0, ACT_RUB_WRD + 0795 
67 11 0010 BRB 32§ : 
0000v CF 00 FB 001D5 15$: CALLS #0, ACT_RUB_BOL : 0799 
9 11 OO1DA 16$: BRB o$ : 
0000v CF 0 FB OO1DC 17$: CALLS #0, ACT_DEL_CHR + 0801 
2 11 OO1E1 18$: BRB 10$ : 
0000v CF 00 FB OO1E3 19$: CALLS #0, ACT_DEL_WRD : 0805 
7A 11 OO1E8 BRB 0$ ; 
0000v CF 00 FB OOTEA 20$: CALLS #0, ACT_DEL_EOL + 0811 
7A 11 OO1EF BRB 428 : 
0000v CF 00 FB OO1F1 21$: CALLS #0, ACT_DEL_ACE + 0817 
7A 11 001F6 BRB 4$ ; 
0000v CF 00 FB OO1F8 22$: CALLS #0, ACT_UNDEL_CHR : 0823 
3E 11 O1FD BRB § : 
0000v CF 09 fs OFF 238: CALLS r) , ACT_UNDEL_WRD : 0825 
0000v CF 00 fe 0 of 24$: CALLS #0, ACT_UNDEL_LIN + 0827 
0 11 00208 BRB 38§ : 
0000v CF 00 Fs 0 FF 25$: CALLS 1 { ACT_UNDEL_ACE : 0831 
0000v CF 00 re 6 14 26$: CALLS 1 § ACT_UP ; 0839 
0000v CF 05 FB 021B 27$: CALLS ‘ { ACT_DOWN ; 0845 
0000v CF 09 fe 6 288: CALLS #0, ACT_RIGHT > 0849 
. 5 6 BRB § ; 
0000v CF 00 FB 9 298: CALLS 4&0, ACT_LEFT > 0851 


——-- -— - - —--} 


=32 v4.0-742 Page 30 
ieeectaue GHSSEEDS  WMECUD PELs Pall "& 
voe-000" AED_PROCESSACL = main processing _ a se BRB ite ACT TOP out 
0000v CF a 1$: CALLS #0, ACT_BOTTOM : ones 
cant 3 iF ops it ore 1” AED_L_FLAGS#1 ; i 
pets 43 fi te ses: Btea #, AED_LFLAGS+1 ; “ 
01 A? 9 as <8 act He ACT _MOVE_wRD ? 
0000v CF yo fF cr is, ce ie ACT_MOVE_BOL onal 
0000v CF if | 7$ CALLS 1, ACT_MOVE_EOL = 0891 
sae i F i: CALLS i, ACT_MOVE_ACE : 0897 
0000v CF 4. 48 b05ee 40$: BRB #9, ACT_FIND_STR pa 
o000v CF $0 T doses 2e Fos #9 ACT_F IND_NXT _ 
0000v CF BO £8 Boe Gus: RB G38 ACT_ADV_FIELD (pee 
0000v CF or 4% 00979 ete tae ‘ ACT_SEL_FIELD i aes 
0000v CF o8 4% 90580 gen Tes io, ACT_SEL_ITEM F oon 
0000v CF ‘i i ° e 198: B18 i, "ARDC FLAGse2 0333 
$: 8 3 
a M os is # a9 i 7 on cig AED_L_FLAGS+2 es 
ae) GWete fe Reape B 
1 § : 
oovov tf 3 AR Bo i Me one. I aa = 
0000v CF Te 4% oogac t CALLS #0, ACT_INSERT a one 
see 5 it 3 He CLRL Stop ; 0962 
$$ 11 00 89 598: PUSH. i, ACT_REFRESH ; ions 
0000v CF rear 54 ‘ eis: aA nt : 
Of FB 0st mOvL RO; LOCAL. STATUS ; 0967 
wR RRB es Be Bit pt 
F 1 90 BOeo G4: PUSH aT ay oa ; oan 
0000v CF a i og 658: XORB2 #128, AED_L_FLA ; 0989 
ee) Cos 


en" 
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AED_PROCESSACL = main processing loop 
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ALON FGOM POD WOO—WOF POOWO-00—C0OO rr 


ro >> 
OdNIM O NOOO WDM OO & MN NIN PP WE NNO 
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Qrooor>,y 


$1 
a-8ep-1 


67$: 
68$: 


69$: 


748: 


Be $9:55:38 


rh Bliss-32 V4.0-742 
ACLEDT.SRCJAEDMAIN.B32;1 


=(SP) 
#4, SYSSSETEXV 
PREV_HANDLER 


=(SP) 

PREV_HANDLER 

#4, SYSSSETEXV 

A 

#2, _SCRSSET_CURSOR 

ae =(SPY 

#1, LIBSSIGNAL 

AEO_B_COLUMN, -(SP) 
DB-LINE, =(SP) 

#2, SCRSSET_CURSOR 

T RM_CHAR 

AED_L FARSTLINE, RO 

3$ 


#4,~10(RO) 
a3, AED_L_FLAGS, 69$ 


“NoN2 Pp 
romrorm 
Cr 


os" 

ace SCRSERASE _PAGE 
os! 

#2, SCRSSET_ CURSOR 
AEDS _NOMODTFY 

#1, LIBSSIGNAL 


=(SP) 
SCRSSET_CURSOR 


#AEDS_NOMODIFY, AED_L_WORSTERR 


AED _L_FLAGS+2, 72$ 


a5 
TERM CHAR? R1 
Ri, #13 


#16. AED_L_FLAGS#1 
#0, #16, SEGMENT_SIZE, BUFFER_INDEX 


INPUT BUFFER, R 
B FER INDEX. R 
=1(RO), #44 

75$ 

~1(RO), #61 

75$ 

=1(RO), #41 

75$ 


See Se Se Se Se Se Se Se Se Ge Ge Se Ge Ge Se Ge Se Fe Fe Ge Ge Ge Ge Se Se Fe Fe Se Se Se Be Be Be Se Se Se Se Se Fe Se Se Se Se Ge Se Se Se Se Se Sete Se Se Se Se Se 
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DSMAIN 1$-Se -1 47:16 Ax-11 Bliss-32 V4.0-742 
voe-000 AED_PROCESSACL = main processing loop 12-868-138e $9 :63:36 ERCLEDT-SRe AEDMAIN.B32;1 
A B8 BLBS $AED_L_FLAGS+2, 75$ 
83 0098 cf if : CHP AED-B-FIELD, #2 
oon eI ensue 
5 00c4 4 9 MOV INPUT_BUFFER, RO 
B84 ¢ ¢ MOVB #44, SBUFFER. INDEXCROJ 
6 A 1 8 D MOVW #1, ECHO_DEST 
8 A 00 8849 — 0030 MOVAB  @BUFFER INDEXCROJ, ECHO_DESC+4 
06 AB 9F 0030 PUSHAB ECHO_DESC 
6A 01 F E CALLS #1, RED PUTOUTPUT 
20 aA? 9 E INCB AEO_B COLUMN 
68 D E INCL BUFFER_ INDEX 
0088 6 8 0 E INCW § SEGMENT_SIZE 
E 7C OO3EC 75$: CLRQ =(SP) 
1 0D 9 E PUSHL #1 
8 DD O03F PUSHL RB 
00006 CF 04 FB OO3F CALLS #4, AED_SEGSPLIT 
18 «AB 9 p O3F MOVL RO. NEW TEXT_LINE 
01 A O3FB TSTB «= AED_L_FCAGS+T 
56 18 00 FE BGEQ $ 
5 02 A? EB 004 BLBS ADL FLAGS+2, 76$ 
4D 02 =A 0 3 0404 BBS #3, AED_L FLAGS#2, 76$ 
0 0080 C7 9E 00409 MOVAB AEO_T_CORCINE, R 
0 44 AT D1 O40 CMPL  AED“L“LASTLINE, RO 
4¢ if 041 BNEG 
50 40 A? DO 00414 MOVL AED : FIRSTLINE, RO 
OC Ad D3 418 TSTL  12¢ROY 
39 12 00418 BNEG 76$ 
02 a7 08 8A 0041D BICB2 #8, AED_L_FLAGS+2 
58 DD 00421 PUSHL RB 
00006 CF 01 FB 0423 CALLS #1, AED SELECTFIELD 
04 «AB 0088 C7 2 428 MOVW AED _T_CORLINE +8 ECHO_DESC 
08 As 00C4 C7 9E 0042E MOVAB AED_T-CURLINE* 6, ECHO_DESC+4 
01 DD 004 PUSHL # 
7E 24 AZ 9A 004 MOVZBL AED_B LINE, =(SP) 
69 08 FB 004 CALLS #2, SCRSSET_CURSOR 
04 AS 9F 004 PUSHAB ECHO_DESC 
A 01 FB 004 CALLS #1, KED_PUTOUTPUT 
E 0088 C7 3C 004 MOVZWL SEGMENT“SIZE, -(SP) 
3 6 04 INCL (SP) 
7E 24 A? 9A 004 MOVZBL AED_B_LINE, =(SP) 
68 02 FB 004 CALLS #2, SCRSERASE LINE 
20 a7 $ 1 81 004 ADDB3 #1, BUFFER INDEX, AED_B_COLUMN 
E 30 A7 9A 00456 76$:  MOv2BL AED_B COLUMN, -(SP) 
E 4 A? 9A 0045A MOVZBL AED"B“LINE, -(SP) 
00906 CF 92 cB 4 CALLS #2, AED_SEf_CURSOR 
1 A? 40 - F i 4 B1S6 #64, AED_L_FLAGS+1 
20 5! 1 77$: CMPB Ri, #32 
IF BGEqu 78$ 
Fee BRW $ 
67 80 8F 2&8 78$: BISB2 #128, AED_L_FLAGS 
01 A? 0 BA BICB2 #16, AED_C_FLAGS#1 
61 8F 1 91 CMPB. RT, #9 
6 1f Bissu 79$ 
7A —soBF 91 CMPB RI, #122 


M 
DSMAIN p-1 AX-11 Bliss-32 V 4 0-742 
voe~000 AED_PROCESSACL = main processing loop 300-1 38e 73 $3: § ACLEDT.SRC JAEDMAIN.832;1 
BLEQU 8 
ow ii bet i 
FE soaBF 1 44 CMPB #2546 
4 1A BGTR gig 
28 ag 0 8 SUBB Hi 
A é p cHPL gut Fen. INDEX” Rep _L_PAGEWIDTH 
02 Ay 3 iste B3 H _L_FLAGS+2 
18 A? 0088 (7 10 ie iS CMP ZV . , #16, SEGMENT_SIZE, AED_L_PAGEWIDTH 
— 7C CLRQ 0s =< SP) 
43 D4 CLRL 3s = (SP) 
58 0D PUSHL R 
00006 CF 04 FB CALLS » AED SEGSPLIT 
04 AB 1 : MOVW a1. 
08 As 28 Ag E VAB_ TERM CHARS ECHO_DESC+4 
AS OF PUSHAB eC 
$A 01 F CALLS RED_PuTOUT put 
0 68 D MOVL Se INDEX, R 
50 0088 (7 10 90 if CMP LV 18, SEGMENT_SIZE, RO 
02 a 9 TSTB aes _L_FLAGS+#2 
39 1 BLSS acs” 
06 As 0088 (C7 OA SUBW3 O,, SEGMENT. Ize, ECHO 
08 AB 00¢4 C740 3 MOVAB. I ECHO~ Se 44 
6A cue CALL aie en Be PUTOUTPUT 
7E 8 Og ct ADDL3 #2. BUT FER. INDEX, =(SP) 
E 24 A? 9A OO4EF MOVZBL AgO 8 } 
00006 cf 02 F O4F CALLS Reb Sef CURSOR 
0 $ DO 004F MOVL : FFER IND NDER, 
51 OOOOOIFF BF g O4re SUBL #5T1, RI 
51 00 00C4 ¢740 04 AB 2C 0050 Move ECHO pesé Input BUF FERRO], #0, R1, - 
00C5 C74 990¢ INPU PUT BUFFER+1CRO 
51 28 AS 9A 00510 84$:  #mOVZBL TERM CHAR, R1 
5a OF 51 91 00514 CMPB oR, 891 
4 13 18 BNEQ 6-85 
92 A7 1 : 1A B1SB2 a, AED_L_FLAGS+2 
D 28F 1 91 3 85%:  CMPB 
4 12 00 Q 
02 01 BA 4 B1CB2 AED - ef LAcse2 
50 004 £7 8 86$:  MOVAB 1h NPUT B RO 
00 884 } nove Ve SBUrFER RE NDEXCROJ 
20 a7 68 6 ei ADDB3 gure BUFFER, TNoex. AED_B_COLUMN 
ee Re | GR BEL 
64 0088 (C7 10 09 FD CMP2V #0 #16, SEGMENT_SIZE, BUFFER_INDEX 
4 0054 BGTR 88$ 
0088 c7 6 0054 g7$: INCW SEGMENT SIZE 
01 «a7 8 A 00548 88$:  BICB2 #8, AEDTL_FLAGS#1 
fat 


3; Routine Size: 1363 bytes, Routine Base: S$CODES + 0000 
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pe e, 7 
11 
5.5 =] 247:14 AX-11 Bliss-32 V4.0-74 | 
ACT_RUB_CHR = rubout a single character 12-808-138e $9:93:35 Patter’ sre AEomAiNCB Soe ec 3 | 
ZSBTTL_ ‘ACT_RUB_CHR = i h “ 
ROUTINE ACT Rus CAR 7 rubout a single character 


‘ee 
' 


FUNCTIONAL DESCRIPTION: 

This routine deletes the character immediately proceeding the current 
cursor position. The deleted character is placed in storage for 
later retrieval. 


CALLING SEQUENCE: 
ACT_RUB_CHR () 


i 

i 

i 

i 

i 

i 

i 

! INPUT PARAMETERS: 
} none 

' 

! IMPLICIT INPUTS: 
: OWN storage 
! OUTPUT PARAMETERS: 
: none 
' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: 


IMPLICIT OUTPUTS: 
none 


moti VALUE: 
if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 


are updated, and the object's ACL is updated as necessary. 


PUPP 
LANLS SSNS ARAVA S SOUSA RG OOOO RU OOO NO 


LINE : REF SBBLOCK, ! Addr of previous segment 
COMBINED_LINE : REF $BBLOCK; ! Addr of combined segments 


j 
! If the current ACE is marked as untouchable, no modifications are allowed. 
| 
| 
| 
| 
| 
! 


ww 


IF .AED_L_FIRSTLINECLINE_V_NOTOUCH) 
THEN 


BEGIN 
SIGNAL (AEDS_NOMODIFY); 
AED_L_FLAGS RED_V_GOLDKEY) = 0; 
AED L_FLAGSLAED_V_ACTIONKEY) = 0; 
RA_CHAR = 0; 
TURN 1; 


AGS 


TE 
RE 
END; 
LF V_MO 
LF 


FL FAED. é 
“LT FLAGSLAED~V—F 


A 
AE 


mee em ee ae ed td od od dd dD 
I et i a ee at as 5 ns 4 9 9 5 9 Hs 5 ms ss 9 5 4s @ as ss 2s bs 2s 2b 2s 9 ss 5 ss 2 5 2s 5 as 9 2s ss 9 ss ss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 


SSSSSISESLE 


I 
IF .BUFFER_INDEX GTR 


vou-000" ACT_RUB_CHR = rubout a single character b-bep-1984 3 5: 43 ACLEDT’SRE atoms tivesoe1 mae (38 


: z i 1 2 THEN 

: 136 ; BEGIN 

: f 6 i 5 3! Delete the previous character. 

: 238 1 AED_8 DEL CHAR =, . INPUT BUFFERC BUFFER INDEX = 12: 

: 7 1 8 IF TAED 8: “DEL_CHAR E AED_L GSEAED_ v-opENUtC} = 0: 
; 760 1 If .AED-B-DEL CHAR Eot ‘j: THEN AED“L “thes AED V“OPENUIC) = 0: 
: 761 1 10 SCRESET. CORSOR (.AED_6_L1 NE AED EB B-COL UMN = 1)? 

g 766 } ! UFFER_INDEX LSS” .SEGMENT_SIZE 

: 764 1 ig i BEGIN 

: 765 1214 4 ECHO_DESCEDSC SW. LENGTH] = .SEGMENT SIZE = .BUFFER_INDEX; 

; 266 1215 4 ECHO-DESCCDSCSA-POINTER] = BUFFER_CHA 

; 76 1 16 4 AED_PuTOUTPUT (ECHO DESC); 

; res : ' ? CHSTOPY (.ECHO_DESCCDSCS$W_LENGTHI, eerreh ou, 

: 270 i 19 4 “6 ap - .BUFFER_INDEX + 1, INPUT_BUFFERC.BUFFER_INDEX = 1); 
: 77 1221 BUFFER INDEX = -BUFFER. INDEX = 1; 

3: 77 1 ¢ AED B FOL UN = .BUFFER- INDEX + iF 

: 77% 1 SEGMENT SIZE = . NT SIZE 

: 775 1224 SERSERASE SL INE (.AED_B "CINE. segment SIZE + 1); 

: 77 1225 T CORSO R (.AED"B-LINE, .AED_8_COLUMN); 

: aa } § 

; 443 : 8 ! Combine the current and previous Line segments. 

; 781 0 ELSE AED_SEGCOMBINE (BUFFER_INDEX, 0); 

: reg 1 3 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 

: 784 123 AED"L~FLAGSLAED-V~ACTIONKEY) = 0; 

: 785 1234 2 TERM CHAR = 0; 

; ree : 5 RETURN 1 

: 788 1237 1 END; ! End of routine ACT_RUB_CHR 


03FC 00000 ACT_RUB_CHR: 
WORD 


2 Save R2,R3,R4.R5,.R6,R7.RB.RP : 1146 
2 900000006 ef po 99 002 MOVL HAEDS NOMODIFY, R9 : 
33 G 00 000 MOVAB SCRSSET CURSOR, R8 : 
9000" ¢ cr 9E 9019 MOVAB BUFFER _INDEX, R7 : 
000° 9—E 0001 MOVAB _L_FLAGS, R6 ; 
5 40 Ab 06 Oot, MOVL EDI FIRSTLINE, RO > 1189 
49 0A AO . 2 1 BBC #4,710(RO), 4$ : 
12 ‘i a 00 5 BBC a3, AED_L_FLAGS, 1% ; 1192 
5 DD $8 9 PUSHL #21 : 
000000006 00 02 FB ; CALLS ‘ » SCRSERASE_PAGE : 
68 43 PB CALS i. SCRSSET_CURSOR ; 
9§ DD $0 1$ PUSHL R9° * : 


en" 


50 


51 


ACT_RUB_CHR = rubout a single character 


0088 
04 


20 


000000006 0 1 
Seed Oe eo 
FoR 
00000000* BF 
mS OG § 
14 Ab 9 
wo 
01 AG i9 
0096 
8 A6 00C3 C64 
8B 8F 68 A6 
02 AG Of 
5D BF 68 A6 
02 A6 01 
7€ 20 AG 
6E 
7E 246 
68 0 
50 6 
C6 10 00 
A7 0088 C6 55 
08 A? 00C4 C640 
04 A? 
0000G CF 01 
50 67 
51 00000201 _—8F 50 
00 00C4 C640 04 A? 
00C3 C640 
67 
A6 67 01 
0088 8 6 
7€ 0088 ce 
? 24—COA 
000000006 0p 03 
E 0 A6 
7E 4 A6 
0000G CF 05 
0000G CF be 
01 = A6 2008 F 
28 OA? 
50 01 


11 
eae 


~ 
= 


SNA AAA UNE 
ew 
PA 


COOooOCOOoOCoCoOSoo 
Bao ow 
NEOO OUWON— TS 


Soooooooooooooosoo 
ooo 
SSSLRE 
Wiirn > 
~“ on 
nr wn 


oO 
oO 
nm 


FOL POS fT FP FPVPOONAEI VN OWOTD MWS OD SVP PN PNr— 
ss 
oO 
o 


00D 
00D 
OOEO 8$ 
OOE 
OOE 
OOEB 
itd 
G0r 
OFD 
4 1 
105 
4 A 
10C 9$: 
4 
11 
11 
118 
11E 
00121 


10$: 


4 23:47:14 AX-11 Bliss-32 V4.0-742 
382 $9595 :56 ACLEDT.SRCIAEDMAIN.B 52; 
gartS Fhe KLBSS EMAL os 
MOVZBL AED_B_COLOMN, -(SP) 
CALS, AOU STRSSET. CURSOR 
iste #chEDS. NOMOB IF YEr> 
CMPZV #0, #3, AED_L_WORSTERR, #<AEDS_NOMODIFY&7> 
MOVE R9, AED_L_WORSTERR 
BISB2 sf 28, AED_L_FLAGS 
BICB2 #16, AED C FLAGS#1 
MOVL BUFFER INDEX, RO 
BGTR 
BRW 9$ 
MOVB = INPUT_BUFFER-1(RO], AED_B_DEL_CHAR 
CMPB = AED_B“DEL_CHAR, #91 
BNEQ $ 
BICB2 #1, AED_L_FLAGS+2 
CMPB © AED_B_DELCHAR, #93 
BieB2 i, AED_L_FLAGS#2 
+ 
MOVZBL AED_B_COLOMN, -(SP) 
DECL (SPY 
MOV ZBL AED_8 LINE, =(SP) 
CALLS #2, SCRSSET_CURSOR 
MOVL BUFFER_INDER, RO 
CMPZV #0, #18, SEGMENT_SIZE, RO 
SUBW3 RO, SEGMENT SIZE, ECHO_DESC 
MOVAB INPUT BUFFERLROJ. ECHO-DESC+4 
PUSHAB €ECHO_BESC 
CALLS #1, AED PUTOUTPUT 
MOVL. BUFFER INDEX, RO 
SUBL 3 a) R 
moves ECHO DESC Input BUFFERCRO, #0, RI, - 
INPUT BUFFER-1CRO 
DECL BUFFER INDEX 
ADDB3 #1, BUFFER INDEX, AED_B_COLUMN 
DECW SEGMENT SIZE 
MOVZWL SEGMENT“SIZE, -(SP) 
NCL (SP) 
MOVZBL AED_B LINE, =(SP) 
CALLS #2, SCRSERASE_LINE 
MOVZBL AED_B COLUMN, ~-(SP) 
MOVZBL AED"B"LINE, (SP) 
CALLS #2, AED_SET_CURSOR 
BRB § 
CLRL = = (SP) 
PUSHL 7 
CALL ue AED_SEGCOMBINE 
BICW2 #8200, AED_L_FLAGS+1 
CLRB. Ss TERM CHAR 
MOVL . 
RET 


| 
| 
ta 


vou000" ACT_RUB_CHR = rubout a single character 13-4 £91984 73 $3: 43 rattan 


3; Routine Size: 290 bytes, Routine Base: SCODES + 0553 


2 
e200 ¥ ACT_RUB_WRD = rubout previous word 18-Sep-1964 $7:95:35 ACE 


<> 


; 790 1 1 ZSBTTL ‘ACT_RUB_WRD = rubout previous word’ 

: 791 33 1 ROUTINE ACT_RUB_ORD = theta 

; 138 1241 1 144 

; 796 1 tg 1! 

: 03? i tz 1 FUNCTIONAL DESCRIPTION: 

: 797 1245 1! This routine deletes the word (all characters stopping with the first 
; 798 1 ‘3 1! ron alphanumeric character) ages poe i process’ the current cursor 
‘ 44 : rh : position. The deleted word is placed in storage for later retrieval. 
: 801 1249 1 | CALLING SEQUENCE: 

; 80 1250 1! ACT_RUB_WRD () 

: 80 1251 1! 

; 804 1 26 1 ! INPUT PARAMETERS: 

: Boe 1584 1 i 224 

; 807 1255 1! IMPLICIT INPUTS: 

; ries 1528 : OWN storage 

: 810 1258 1 | OUTPUT PARAMETERS: 

; «811 1259 1! none 

3 a\¢ 1260 1! 

s 681 1261 1 ! IMPLICIT OUTPUTS: 

: Bis 1568 1 i a 

: 816 1264 1! ROUTINE VALUE: 

s Bi7 1265 1! 1 if successful 

: ai8 1566 ! error status otherwise 

: 820 1268 1 | SIDE EFFECTS: 

; it} 1269 1! The Line segment table is updated as necessary, ACE Line pointers 
5 Gee 1270 1! are updated, and the object's ACL is updated as necessary. 

: 823 1271 1! 

pee tae 

; Bst 1393 § BEGIN 

> 828 1276 2 LOCAL 

; 829 1277 DEL_WORD_BEGIN, ' Beginning offset of word 
3 $30 1s? DEL_WORD_END; ' End offset of word 

: O36 1280 ! If the current ACE is marked as untouchable, no modifications are allowed. 
3 HE 1388 if .AED_L_FIRSTLINECLINE_V_NOTOUCH] 

3; 835 128 THEN 

; 836 1284 BEGIN 

3; 837 1285 SIGNAL (CAED$_NOMODIFY); 

; 838 1 86 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 

; 839 128 AED_L_FLAGSCAED_V_ACTIONKEY] = 0; 

: 840 1288 TERM _CHAR = 0; 

$ Bel : 34 ETURN 1; 

: B05 1291 . 

: Bee ' 4 ! Deallocate anything in the saved word buffer. 

: 846 1594 IF .AED_Q_DEL_WORDCDSC$W_LENGTH] NEQ 0 


ea" 


847 


PPADS 


09.09 Co 00 09 0D 00 0D CO CD 09 0D CD 0D OD CD OD: 
WN ODONOUS WOOD 


To 


OoOooooo 
MFWn—o 


ooo 
SLE 


AAAS & BNW NWA & BE BF BANANA B BON BU BAIA innononoronornonn 


ma a a a a ed td od = 8 = = = = = = od = = = a = = a = 2 8 = a a 


=O OONAUE WN 0 OONO UNE WN O ODNOUE WIN “OC ODONOUSWN Oo 


12 
15-Sep-1984 $3 47:14 
ACT_RUB_WRD = rubout previous word 14-Sep-1984 11:52:29 ACLED 
THEN DEALLOCATE (. AED. Q tit WORDCDSCSW Leuern 
AED _G L GORDCDSCSA_POINTER j; 
AED_Q_DEL_WORDCDSC Sw ~enetng 3 


AED_L L=FLAS AED V.MODIFIED) = ! ACE has been modified 


AED-L“FLAGSLAED-V-FIRSTCHAR] = "6; 
IF _.BUFFER_INDEX GTR 0 
BEGIN 


! Delete the previous word. 


DEL WORD END = .BUFFER_INDEX; 
BUFFER INDEX = .BUFFER INDEX 


R- - 2; ' Backup over delimiter 
if BUFFER. INDEX GEQ 0" 


R GEQ 'A* AND .BUFFER_CHAR LEQ ' 
RG AR LEQ * 


UFFER_CHA 
UFFER-CHAR GEQ ‘O" AND .BUFFER_CH 


END 
ae M gites INDEX = mt 
BUF FE RJWOER = .BUFFE R INDEX +1;  ! First char of word 
DEL EORD = “BUFFER NOEK; 


D-B_CO prunes .B INDEX + 1; 
AED~Q-DEL WORDCDSC$W_LENGTH] = .bEL -WORD_END = 
AED-L-STATUS = ALLOCATE ( (AED Q DEL LawoRocDS¢s W 


D_G_BEL_QordC P 
en” eAED_L_STATUS 


_V_G0 SEY] = 0; 
AEDS L eEiAGs AED_ V “ACTIONKEY) = 0; 
RETURN O° 


END 
CHSMOVE  ¢. AEDS Q DEL_W RDLDSC$u LENGTH], 
T BuUFFERC. DEL WORB_BEG 
NED 0 vi me) POINTERS); 
E = .DEL_WORD END; 
RC.DEL_WORD_END] 


TH) 
INJ 
TER 
AED_L_FLAGSCA 
ECHO_BESCCDSC $1Z 
Geno, DESCLD FFE 
LF echo. DE 


QOon 
0” 
o 
wm 
o 
ad 
= 
Sase 
2 
oe 
“~ 
= 
—) 
ao 
mm 
o 
“4 


BEGIN 
SCRSSET_CURSOR (.AED_B LINE, - AED_B_COLUMN) ; 
AED_PUTOUTPUT (ECHO_ BESC); 


END? 
CHSCOPY (.ECHO_DESCCDSCSW_LENGTH], INPUT_BUFFERC.DEL_WORD_END), 
{2 - .BUFFER_INDEX, INPUT_BUFFERC.DEL_WORD_BEGIN); 


12 
AEDSMAIN 18. -Sep-1984 23:47:14 AX-11 Bliss-32 V4.0-74 P 1 
vine ACT_RUB_WRD = rubout previous word 1a-8ep -1984 7 $5236 ACLEDT. SRCJAED mat i asee1 — (3 
: 904 1 SEGMENT SIZE = .SEGMENT SIZE = .AED_Q_DEL_WORDCDSC$W_LENGTHI; 
; 905 1 i SCRSERASE LINE (. AED BC CINE, .SEGMENT“SIZE + 1); 
: 906 1354 AED USET_CORSOR (:AED"B-LINE, .AED_B_COLUMN); 
ey ie, = 
3 44 ! ; ! Combine the current and previous Line segments. 
; gi 53 ELSE AED_SEGCOMBINE (RUFFER_INDEX, 0); 
; 313 1361 2 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
> 914 1 é AEDS L sELAGS AED “VZACTIONKEY] = 0; 
: 915 136 ERM _ CHAR 
: 916 1364 RETU RN 1 
: 917 1365 
: 918 1366 1 END; ! End of routine ACT_RUB_WRD | 
| 
OFFC 00000 ACT_RUB_WRD: | 
.WORD Save R2,R3.R4.R5, RG, R7,R8,R9,R10,R11 : 1239 
58 000000006 00 9€ 00002 MOVAB SCRSSET. CURSOR, R11 : 
SA 0000° CF 9E 00009 MOVAB BUFFER INDEX. : 
59 0000" CF H 00005 MOVAB AED_L_FLAGS, R9 : 
SE 04 C2 0001 SUBL2 SP : 
50 40 Ad 00 00016 MOVL AED_L FIRSTLINE, RO + 1282 
51 OA AO 04 €1 QOO1A BBC #4,710(RO), 4$ ; 
12 69 03 £1 OOOTF BBC #3, AED_L_FLAGS, 1% + 1285 
01 OD 00025 PUSHL #1 : 
15 DD 00025 PUSHL 4 ; 
000000006 00 02 FB 90007 CALLS #2, SCRSERASE_PAGE ; 
01 DD O0¢E PUSHL F 
15 DD 000 PUSHL 4 : 
68 02 FB 00032 CALLS #2, SCRSSET_CURSOR ; 
000000006 8F DD 00035 1$ PUSHL #AEDS_NOMODTFY ; 
000000006 00 01 FB 00038 CALLS #1, CIBSS1GNAL : | 
0B 69 03 EI 0042 BBC #3. AED L FLAGS, 2$ ; 
7E 30 AD 9A 00046 MOVZBL AE 8 _COLOMN, ish) : 
7E 4 AD 9A 0004A MOVZBL AED B”LINE : 
68 Qe FB O004E CALLS #2, SCRSSET CURSOR ; | 
00000000* BF p 0091 2$ ist os NOMOBIFY& ; | 
00000000* 8F 16 Ad 03 i o0e8 CHP ZV , #3, AED_L_WORSTERR, #<AEDS_NOMODIFY&7> ; | 
14  A9 000000006 8F 006 MOVL § #AEDS_NOMODIFY, AED_L_WORSTERR : 
0165 31 9060 3$: BRW > 1286 
50 60 49 $¢ 00070 48: —ROVZWL_AED_@_DEL_woRD, RO : 1296 | 
66 Ad OF 8007 PUSHAB A DEL_WORD+4 1296 | 
04 AE 50 po 90 MOVL TSP) ; 
04 AE 9F 0007D PUSHAB : | 
000000006 00 02 FB 0 CALLS 4(s PT IBSFREE vm : | 
60 Ad B4 5$: R A G_DEL_WORD : 1297 
69 80 8F 88 OOO8A BISB 8, “RED? L_FLAGS : 1099 
01 «a9 10 BA O08 BICB 4 AED C FLAGS*t : 1 99 
50 6A DO 0009 BUFFER_INDEX, : 130 


ee - . —-4 


AEDSMAIN 13-Sep-1 AX-11 Bliss-32 V4.0-742 
¥04-000 ACT_RUB_WRD = rubout previous word 1S-deo-1984 3 $5: 3 ACLEDT.SRCJAEDMAIN.B32;1 


16 95 BGTR 6 
01 1 0009 BRW $ 
57 d 9A 6$: MOVL. RO, DEL_WORD_END 
6A ; % suaL2 ‘ { BUFFER_IRDEX 
0 6A 00 Ng HOVE BUF FER_INDEX RO 
‘i i 004 940 A OAs 7$ MOVZBL INPUT BUF FE UFFEREROJ, R1 
Og iF AF BLSSU «BS 
SA oF 1 91 00081 CMPB RI, #90 
A 18 085 BLEQU 9$ 
30 19 08 8$: CMPB RI, #48 
1 1 OOOBA Bissu. 118 
39 51 91 0008C CMPB ORT, #57 
0c 1A 000BF BGTRU 118 
6A 07 000C1 9S: ECL § BUFFER_INDEX 
50 6A 00 00¢3 VL BUFFER INDEX, RO 
Dp 1 d0¢6 BGEG $ 
03 11 000C BRB 11$ 
6A 01 CE OO0CA 10$ MNEGL #1, BUFFER_INDEX 
6A 06 000CD 11$: INCL  BUFFER_INDEX 
56 6A 00 O00CF MOVL. BUFFER-INDEX, DEL_WORD BEGIN 
20 a9 6A 9} 81 ait ADDB #1, BUFFER_INDEX, AED 6 COLUMN 
60 a9 57 6 A3 0000 SUBW Det -¥ORp esi bEL_WORB_END, - 
64 Ad OF 000DC PUSHAB AED~Q~DEL-WORD+4 
04 AE 60 ad 3C¢ S000 MOVZWL AED-Q"DEL~ “WORD, 4(SP) 
04 AE 9F OO0E4 PUSHAB 4( 
a a ra 
08 58 E9 000F1 BLBC m’STATU US, 1 
60 Ad 00 6E = 09 C 0084 MOVCS HO; (SP, a “AD. Q_DEL_WORD, - 
oo0sc ==¢9 58 DO OOOFC 12$: MOVL vA STATUS ust? L_STATUS 
57 008c C9 €E8 00101 BLBS ih 16S 
12 69 03 a 90106 BBC “hep! " us, ae 13$ 
15 0D O910¢ PUSHL a 1 
000000006 00 02 FB 0105 CALLS #e, , SCRSERASE_PAGE 
15 0D Soi? PUSHL el 
6B 02 FB 00119 CALLS @# SCRSSET CURSOR 
000000006 0 — Boe eee Het Seti 
0B 69 83 ; 1 ; BBC AED at FLAGS 14$ 
E 0 Ad SA 00128. MOVZBL Ab 6 OLOMN. = SP) 
7E 4 AD QA ODI - MOVZBL ADB LINE SP) 
6B 08 é 133 CALLS “sth Sef CURSOR 
50 00sec =C¢ 136 14$:  MOVL AED_L_STATUS, RO 
07 50 4 BITS oR “4,5! 
11 13 001 BEQL 
51 50 00 EF 0014 EXT2ZV : #0, #3, RO, R1 
51 14 «Ad 0 FD 143 CMPZV #3, AEO_L_WORSTERR, R1 
14 Ad % 08 14D MOVL ! L_WORSTERR 
01 a9 2008 BF AA 131 15$: Bicw2 ‘ $00, "HED _L_FLAGS#1 
28 «AA 94 00157 CLRB 


———E 


; Routine Size: 485 bytes, Routine Base: S$CODE$S + 0675 


DSMAIN 15-43 -1984 47:16 Ax-11 Bliss-32 V4.0-7462 P 3) 
¥one000 ACT_RUB_WRD = rubout previous word 12-808-1 98 ERS ACLEDT’S RC aEbndiie -832;1 a AY 
008 15A BRW 208 3 1335 
64 89 00C4 ©946 60 3 34 §bi20 16$:  MOVC3 AED _@ DEL_WORD, INPUT_BUFFER- : 1339 
CDEC_QORD-BEGIN], @AED_Q_DEL_wORD+4 3 
01 a9 93 88 00166 B1SB2 «#2, RED ef bAcse +f + 1340 
06 AA 0088 9 A IgA SUBW3 © DEL_WORB SEGMENT_SIZE, ECHO_DESC + 1341 
AA 00¢4 (947 9E 00171 MOVAB INPOT_B OPEN rope .WORD-ENDJ. ECHO~DESC+4 : 1 : 
4 AA é 178 TSTW CHO.DESC : 1 
1 178 BEQL 5 : 
7E 0 ad 9A 00170 MOVZBL AED_B_COLUMN, ae” + 1346 
7E 4 Ad 9A 00181 MOVZBL AED B-LINE : 
02 FB 00185 CALLS #2, SCRSS the CURSOR : 
04 AA 9F 001 PUSHAB ECHO DE $ 1347) 
06 cr 01 Fe 1 CALLS #1, RED_PU aasle, ; 
50 000 F 6A g 190 17$:  S$UBL3 BUFFER IN bral _i 1351 
50 00 C4 C947 04 AA 2 0019 MOVC E HO DES +g iNPul FFER CDEL_WORD_END], #0, =: 
00C4 €946 O1Al T ren REBE DEL WORD _BEGIN]™ 3 
0088 c9 60 AY A2 OO1AS SUBW2 AEB. L=AORD s SEGMENT _STZE ; 1352 
E 00B8 C9 3C OO1AB MOVZWL SEG GRERT esTie =( : 135 
6 6 180 INCL ; 
43 24 Ad 9A 001B MOVZBL ie Meh -(SP) ; 
000000006 9 02 FB 0186 CALLS @ hy ERASE =LINE 3 
E 0 a9 9A 00180 MOVZBL SP) + 1354 
7E 4 Aad 9A 001C1 MOVZBL ae 6 -5- ate “csp ; 
00006 CF 02 FB 001C5 CALLS “AED_SET_CURSOR : 
: 11 OO1CA BRB 156 t 1302 
E D4 OO1CC 18%: CLRL = (SP) : 1359 
SA DD OOICE PUSHL ; 
00006 CF 2 FB 001D0 CALL Hf AED_SEGCOMBINE : 
01 A9 2008 8F AA 001D5 19$: BICW 200, feo _L_FLAGS#1 : 1 2 
28 AA 94 00108 CLRB : 1 
50 01 DO 001DE MOVL i — : 1364 
04 0011 RET ; 
50 D4 OO1E2 208:  CLRL RO : 1366 
04 001E4 RET : 


| 
$22 -1 67:16 1 Bliss-32 v4.0-762 P 36 | 
ACT_RUB_BOL = erase to beginning of Line 12-88-1986 99595556 ari epre sae AEDMAIN. 832;1 yi (6) | 


ZSBTTL ‘A 


€ 


T_RUB BOL | = erase to beginning of Line’ 
ROUTINE ACT.RUB. GOL erie, 


FUNCTIONAL DESCRIPTION: 
aaot coyttns deletes all characters between the current cursor 
tion and the beginning of the Line segment. These characters 
ore NOT stored. 


| 
| 
| 
CALLING SEQUENCE: 
ACT_RUB_BOL () 

| 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 


$ 1 1 

: 1 1 

3 1 1 

3 1 1 

3 1 1 

: 1 1 

5 1 1 

3 1 1 

: 1 1 

3 1 1 

s 1 4 

3 1 1 

3 1 1 

: 1 1 

3 1 1 

3 1 1 

3 1 1 

: 1388 ‘ 

3 stora 

: 939 1386 1 ” 

3 0 1 1 OUTPUT PARAMETERS: 

3 1 : : none | 
3 4 1 1 ! IMPLICIT OUTPUTS: 

3 $ : ! none 

; 946 1 1 ROUTINE VALUE: 

: 947 1 1 1 if successful 

3; 948 1 1 error status otherwise 
; 949 1 38 1 

; 950 1397 1 SIDE EFFECTS: 

; 951 1398 1 The Line segment table is updated as necessary, ACE line pointers 

3 926 1399 1 are updated, and the object’s ACL is updated as necessary. 

3; 1400 1 
3 6954 1401 1 !-- | 
; 955 1086 1 

3; 956 140 BEGIN 

3; 957 1404 . 

3 Bee 1602 ! If the current ACE is marked as untouchable, no modifications are allowed. | 
3 960 1209 IF .AED_L_FIRSTLINECLINE_V_NOTOUCH) 
: 961 1408 THEN 
2 306 1409 
3% 1410 SIGNAL (AED DIFY); | 
3 964 1411 AED_L_FLA SERED V6 OLDKEY) = 0; 

3; 965 1216 AED-L “ft Age yee V_ACTIONKEY) = 0; 

: 966 141 TERA — 

3; 967 1414 RETURN 1 
; 968 1415 END; 
8 208 1218 
3 da ¢1 ! If at the beginning of the Line, this is a no-op. 
: 376 1219 IF .BUFFER_INDEX EQL 0 
3; 97 1420 THEN 

3: 974 1421 GIN 

3; 975 14 § AED_L_FLAGSCAED_V_GOLDKEY) = 0; 

3; 976 14 AED-L-FLAGS AED-V “ACTI ixev] = 


een fe 


1984 23:47:14 AX-11 Bliss-32 V4.0-74 
ACT_RUB_BOL = erase to beginning of Line 1984 #7 :93:36 UACLEDT SRESAEOMAIN 85241 


977 4 TERM_CHAR = 0; 

3f 5 AL a 1; 

980 $ . 

383 8 ! Deallocate anything in the saved Line buffer. 

9 5 0 If .AED_Q@ DEL_LINECDSCSW_LENGTH] NEQ 0 

984 1 THEN DERLCOFATE (.AED_Q BEL LINE COSCSU_LENGTHI. -AED_Q_DEL_LINECDSCSA_POINTER]); 
MH ; AED_Q_DEL_LINECDSCSW_CENGTH] = 0; 

387 : ! Delete to the beginning of the Line. 

5 AED_L_FLAGSCAED_V_DELBOL] = 1; ! Note direction of delete 

hy 


AED_Q_DEL_LINECDSCS$W_LENGTH] = .BUFFER_INDEX; 
AED-L-STATUS = ALLOCATE (.AED_Q_DEL_LINECDSC$W_LENGTH], AED_Q_DEL_LINECDSCS$A_POINTER)); 
IF Rot -AED_L_STATUS 


BEGIN 

$I (.AED_L_STATUS); 

AED _L _FLAGSERED_V_GOLDKEY) = 0; 
AED"L FLAGS AED-V_ACTIONKEY) = 0; 
A 3 


! Copy the deleted portion of the Line. 

CHSMOVE {AED -0_DEL LINECDSCSW_LENGTH], INPUT_BUFFERCO], .AED_Q_DEL_LINECDSCSA_POINTER)); 
SEGMENT_SIZE = SEGMENT_SIZE - = BUFFER INDEX; 

CHSCOPY (.SEGMENT_SIZE, BUFFER_CHAR, 0, 512, INPUT_BUFFER); 

BUFFER_INDEX = 0; 

! Echo any remaining portion of the Line. 

IF .SEGMENT_SIZE GTR 0 

THEN 


SEGMENT SIZE; 
BUFFER CHAR; 


§ Be Se Se Se Ge Se Se Se Se Ge Fe Se Se Gs Se SH Se Se Ge Se Se Se Se Se Se Se oe Ge Se Se FH Se Se Ss Ge Se Se Se Se Ge Ge @eee 


SCRSERASE LINE (.AED_B_LINE, .SEGMENT_SIZE + 1); 


a ee ee ee ed nd od od nd od od od od = = 


ee ee ee ee ed kd dd dd 
WIA SOSNOUE UN OOO NAME UNO ONOUE WN — ONOUS Ww 


; AED_SET_CORSOR (.AED"B"LINE, 1); 
3 AED_L_FLAGSCAED_V_FIRSTCHAR) = 0; 
: AED-L-FLAGSCAED-V"MODIFIED) = 1; 
: AED"B- COLUMN = [BUFFER INDEX +41; 
; ED-L-FLAGSCAED_V_GOLDREY) = 0; 

: L7FLAGSLAED-V-ACTIONKEY) = 0; 


END; ! End of routine ACT_RUB_BOL 


a —_ 


15560-1964 $3292: 4 pal} Bliss-32 Xfiee soe 


eepenaie 
ACT_RUB_BOL = erase to beginning of Line 14-Sep-1 729 ACLEDT. SRC JAEDMAIN.B32;1 


SFTE COED ACT PET Tove A2.85,06,05,06.87 08.00.810,811 
ave * . i & o e 
B v0 0 0 G 8F DO 9002 MOVL § #AEDS_NOMODIFY, R11 
A 0 G : MOVAB SCRSERASE PAGE, R10 
9 000000006 9010 MOVAB SCRSSET_CORSOR, R9 
: 0000' CF 9E 0001 MOVAB BUFFER_INDEX, R8 
0000" cf é aby OVA AE =k gFLAGS, R7 
40 A? OD 4 MOVL AED_L_FIRSTLINE, RO 
45 OA i 4 €1 00028 BBC #2. 710(RO) 4$ 
6 3 £1 00020 BBC #3, AED_L_FLAGS, 1$ 
1 0D 00031 PUSHL #1 
15 DD 000 3 PUSHL #21 
6A 02 FB 000 CALLS #2, SCRSERASE_PAGE 
1 0D 900 PUSHL #1 
15 DD 0003A PUSHL #21 
69 92 FB 9005¢ CALLS #2, SCRSSET_CURSOR 
B OD COO3F 1S: PUSHL 11 
000000006 00 01 FB 90041 CALLS #1, LIBSSIGNAL 
0B 67 3 gi 0048 BBC * AED_L FLAGS, 2$ 
7E 30 A A 0004¢ MOVZBL _B_COLOMN, 
7E 4 A? OA 90050 MOVZBL AED-B LINE, -(SP) 
69 02 FB 00054 CALLS #2, SCRSSET_CURSOR 
00000000* 18 S007 2s: ist #<AEDS$_NOMODBIF Y&7> 
00000000« 8F 16 A? 03 i ED 0005 CMP ZV #0, #3, AED_L_WORSTERR, #<AEDS_NOMODIF Y&7> 
16 A? B 06 te MOVL R11, AED_L_WORSTERR 
0111 31 OO06F 3S: BRW 
68 D3 90072 4$: TSTL UF FER_INDEX 
F913 00074 EQL 
50 58 OA? 36 0076 MOVZWL AED_Q_DEL_LINE, RO 
11 13 OOO7A BEQL  =-5$ 
5c A? DD 0007C PUSHL AED_Q_DEL_LINE+4 
04 AE 50 DO 0007F MOVL RO, ~4TSP) 
06 AE 9F 00083 PUSHAB 4(§P) 
000000006 00 02 FB 000 CALLS #2, LIBSFREE_VM 
58 OA BA 08D 5$: CLRW AED_G DEL_LINE 
91 A? 04 8 9 BISB2 #4, AED L~FLAGS#1 
8 A? 6 94 MOVW BUFFER INDEX, AED_Q_DEL_LINE 
5c 6A?) «O9F 00098 PUSHAB AED_Q_DEL_LINE+4 
04 AE 58 OA? 3C MOVZWL AED-Q"DEL“LINE, 4(SP) 
04 AE 9F OOOA ) 
000000006 ; 8 As CALLS . LIBSGET VM 
8 : BLBC_ VM_STATUS, 6s 
58 OA? 00 6E C 0008 MOVCS #0; (SP), #0, AED_Q_DEL_LINE, - 
SC : 86 DQ DEL_LINE+ 
008c C7 : D 68: MOVL § VM_STATUS, “AED , STATUS 
4F 008C¢ E BLBS APD STATUS, TOS 
OE 67 3 € C BBC #3," AED_L_FLAGS, 7$ 
1 0D 000 PUSHL #1 


1368 


1407 
1410 


144 
144 


—- —— 

- FSP 
-— 

| S 32> 


1 


3; Routine Size: 403 bytes, Routine Base: $CODES + O85A 


2 
DSMAIN 1$-Sep-1 247:146 AX-11_Bliss-32 V4.0-742 P A 
voe-000 ACT_RUB_BOL = erase to beginning of Line 122805- 1386 $7:93:35 ERCLEDT SRE AEDMAIN.832;1 so \ 
15 0D 0008 PUSHL #21 ; : 
6A FB QOOCA CALLS #2, SCRSERASE_PAGE : : 
Bap puta ; : 
69 02 FB 00001 CALLS #2, SCRSSET_CURSOR ; : 
008¢ DD 00004 7S: PUSHL AED_L STATUS : : 
= 000000006 09 1 £8 08 CALLS AI, LIBSSIGNAL -. ; : 
ho RRR Ram te fae 7 : 
: 0g f EB ALLS” #9, SCRESEF_CURSOR F : 
; 008¢ gr EE 8$ MOVL Arb _ STATUS, ; : 
0 F BITS RO, ? : : 
11 1 O0F6 EQ. 9$ : : 
51 50 0 O EF O00F EXT2V 40, 3, RO, RI ; : 
51 %4 =A 0 0 FD o108 cMPzV #0. #3, AED_L_WORSTERR, R1 : : 
14 AT 0 00 0010 MOV RO, AED_L_WORSTERR : : 
01 A? 2008 BF AA 00109 98 Bi cw2 #8200, REB_L_FLAGS+1 : : 
SC 87 00c4 Cc? 58 A? 28 00111 10$:  mMOovc3 AED .Q,DEL LINE, INPUT_BUFFER. - ; : 
008F f oonce «(CFF borte SOVAS INPUT BUFFER, ROO en moze 
0200 8F 00 00 8840 0088 C7 2c 901 § MOVCS SEGMENT SIZE. @BUFFER_INDEXCROJ, #0, #512, =: : 
00c4 = C7 0012E INPUT _BOFFER 3 : 
68 ps 001 1 CLRL BUF FER_INDEX ; : 
50 0088 C7 3C 00133 MOVZWL SEGMENT_SIZE, RO ; : 
iF 15 001 BLEQ = 11$ ; : 
* 3 oooce «ee Se onrse MOVAR INPUT BUFFERS RO } 
08 AB 6 Cl 0014S ADDL BUFFER_INDEX, RO, ECHO_DESC+4 ; : 
01 «DD 00148 PUSHL #1 ; : 
7E 24 AZ OA O14A MOVZBL AED_BALINE, =(SP) F : 
69 0g FB OO14E CALLS #2, ~SCRSSET_CURSOR ; : 
04 AS 9F 0015 PUSHAB ECHO_DESC ; : 
00006 CF 01 FB 00154 CALLS #1, KED_PUTOUTPUT ; : 
7€ 0088 7 3C 00159 11$:  MOVZWL SEGMENT“SIZE, -(SP) ; : 
E 6 00156 INCL (SP) ; : 
7E 24 «A? OA 00160 MOVZBL AED_B ALINE, = (SP) ; : 
000000006 00 02 FB 00164 CALLS #2, SCRSERASE_LINE ; : 
01 DD 00168 PUSHL #1 ; : 
7E 24 «AZ OA 16D MOVZBL AED_B_LINE, -(SP) ; : 
00906 CF v2 FB 00171 CALLS #2, AED_SET_CURSOR ; : 
ee 80 BF es O17 Sa a : 
20. A? bE a 1 OVE ADDBS #1, BUFFER_INDEX, AED_B_COLUMN ; 3 
01 A? 2008 F AA 18 12$:  BICW2 #8200, AEDTL_FLAGS+1 ; : 
28 «AB «94 00189 CLRB «TERM. CHAR : : 
50 01 DO 18¢ MOVL , RO ; : 
4 0018F RET ; F 
50 04 00190 13$:  CLRL RO ; F 
4 00192 RET ; : 


15-Sep-1984 $3792: 16 pratt Bliss-32 V4.0-742 Page 38 


<> 


5 
: 


ACT_DEL_CHR = delete current character 14-Sep-1 :29 CLEDT. SRC JAEDMAIN.632;1 ( 

1481 1 ZSBTTL ‘ACT_DEL_CHR = delete current character’ : 
4 ; ROUT INE act Bec tna : é 
r 164 | F 
485 1: | (3 
? FUNCTIONAL DESCRIPTION: : 
4 This routine deletes the character immediately under the current | : 
4 cursor position. The deleted character is placed in storage for 
re later retrieval. 

138 CALLING SEQUENCE: 
9 ACT_DEL_CHR () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
OWN storage 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 
are updated, and the object's ACL is updated as necessary. 


SESSFEREESISE ATES SE RESP oe Seeees 


to 
oo 


fa BEGIN 
O78 ! If the current ACE is marked as untouchable, no modifications are allowed. 
075 If .AED_L_FIRSTLINECLINE_V_NOTOUCH) 
7 THEN 
SIGNAL (AED$_NOMODIFY); 
AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
AED_L_FLAGSLAED_V_ACTIONKEY] = 0; 
TERA_CHAR = 0; 
RETURN 1; 
END; 


' Delete the character. 
AED_B_DEL_CHAR = 0; 


AED_L_FLAGSCAED_V_MODIFIED) = 1; 
AED“L“FLAGSLAED-V~FIRSTCHAR) = 0; 


° 
. 
° 
° 
. 
oe 
o 
7 
- 
* 
2 
° 
° 
2 
° 
. 
© 
a 
eo 
° 
e 
7 
° 
o 
e 
* 
° 
. 
° 
. 
° 
° 
- 
- 
° 
° 
° 
- 
2 
a 
6 
~ 
° 
. 
o 
- 
o 
7 
° 
. 
a 
. 
o 
. 
° 
* 
= 
> 
° 
+ 
° 
o 
o 
. 
om 
. 
_ 
. 
° 
° 
” 
° 
oe 
. 
° 
o 
« 
- 
o 
. 
: 
. 
° 
. 
6 
a 
& 
. 
° 
o 
° 
. 
° 
° 
° 
° 
« 
° 
° 
+ 
6 
. 
eo 
. 
° 
. 
° 


a a a a ah tt ann kh a a tt at tk at at tk tt et so a as a as i — a 2 
a ce a a ee ee ee ee ee ed ed ed 2d ad 
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“19 AX-11 Bliss-3 -74 P 9 
ACT_DEL_CHR = delete current character 1$-}e0-1984 73 $5: a ACLEDT.SR ROIA AEoMAti iB 58.1 _ ri 


71 2 1 IF .SEGMENT_SIZE GTR O : 
; i i ; AND BUFFER” INDEX LSS .SEGMENT_SIZE : 
: 1095 154 BEGIN F 
; i i ri TF sRED Bnoee cHah rou ai thin AED_L_FLAGSCAED_V_OPENUIC) = 1 
4 e s g ° 
: 1 O38 1544 ECuB DESCEDSCSu LENGTH] s » SEGHEN size = ,BUFFER- INDEX = 1; : 
31 1545 CHO~DESC DSA INTER] = INPUT BOFFERC.BUFFER_INDEX + 1); : 
: 1100 154 IF -ECHO_DESCLDSCS$wW LENGTH] GE GEQ T : 
: 1101 154 HEN AED“PUTOUTPUT TEC ; 
: 11 é 154 SCRSERASE LINE (.AED_8_L Hi *-egnew gsize?: ; 
11 154 AED SET T_CORSOR (AED 8 8° ED_6 LUMN) : : 
1104 1350 rOPr~( ECHO _DESCEDSCSW-LENGTHG> THPUT. BUFFERC.BUFFER_INDEX + 12, : 
; 1106 1 2 by, - .BUFFER INDEX, _ Input _BUF FERC .BUFFER_INDEX)); : 
; 1107 ; SEGMENT_SIZE = .SEGMENT_S : 
; 1109 5 2 ELSE AED_SEGCOMBINE (BUFFER_INDEX, ate : 
1111 ae AED_L_FLAGSCAED_V_GOLDKEY) = 0; : 
3 111g 1 38 AEDS L FLAGS AED “VACTIONKEY) = 0; F 
111 135 ERM CHAR ; 
3 1114 1560 ETURN ; F 
: 1115 1561 : 
: 1116 1562 1 END; ! End of routine ACT_DEL_CHR ; 
O3FC 00000 ACT_DEL_CHR: : 

-WORD Save R2,R3,R4,R5,R6,R7,R8,RI : 1482 : 

59 000000006 ar DO 00002 MOVL § #AEDS_NOMODIFY, RO - : F 

‘ 000000006 00 9€E 00009 MOVAB SCRSSET CURSOR, RB ; F 

q 9000" CF 9€ 90019 MOVAB BUFFER_INDEX, &7 : : 

56 000° CF 9€ 0001 MOVAB AED_L_FLA ; : 

50 40 A6 D O01, MOVL AED “L oFARSTLINE. RO : 1521 : 

49 0A AO 04 €1 0001 BBC 4,710(RO), 4$ : : 

12 66 03 E1 000 BBC a3. AED_L_FLAGS, 1$ : 15246 : 

1 OD 00 PUSHL F 3 

15 DD 00029 PUSHL fat : : 

000000006 00 02 FB 000 8 CALLS » SCRSERASE_PAGE : ; 

01 DD 000 PUSHL : 3 

15 DD 99 PUSHL 1 : : 

68 FB CALLS #2, tee : F 

DD 00039 1$: PUSHL R : : 

000000006 00 1 FB 90 CALLS #1, LIBSSIGNA F 3 

0B 6 3 Fl 04 BBC #3 AED : ofLaes ; ; 

E 20 Ab 9A 0004 MOVZBL Ae6_6 vais : ; 

7 4 A6 9A 0004A MOVZBL AED_8 (aL Se : 3 

02 F af CALLS #2, SCRSSET ile : : 

00000000" BF D3 O00s1 28: STL #<heD$ _NOMOD IF Y® : : 

00000000* 8F 16 Ab 03 3 ED 85 CHPZV 8. #3, AED_L_WORSTERR, #<AEDS_NOMODIFY&7> ; 
16 Ab 9 pO 0006 MOVL  R9, AED_L_WORSTERR : : 

008¢ ei 8069 3$ BRW 8$ sate : 1525 : 


erpenain 
ACT_DEL_CHR = delete current character 
z 80 
0088 
8 
D 
02 
04 A? 
08 00c5 
04 
00006 
0088 
24 
000000006 
20 
24 
C0006 4 
51 o000geoe 
51 00 00C5 Cé 04 
00C4 
0088 
00006 
01 2008 
28 


; Routine Size: 261 bytes, Routine Base: 


00C4 C6 
68 


SCODES + O9ED 


AnNO 
MAA] NONO 0] FAOONON OO 


OPOOPFOP FOMOOPF SAO 
OO" OW" OD OP OO—OU09 9 —Wwwwo 


FOof ero] OWODS SWF OW MWUIM WHO "OOD" NO SPOS 
CVI OoOow 


oooooooooo 


oooococococ“ea 
MO MO OVIN SF HOWOSlgo 


oowornoo-8 ~woon 
——OOooCooosoo 


Bbc fiis3:09 FAC Eor SAE Suz Smt Casoes 


wie B_DEL_CHAR 


wth 
Saent Size Ri 


FFER_INDEX, R1 
BUF FER_ INDEX RO 

INPUT_BUFFERCROJ, AED_8_DEL_CHAR 
AED_B-DEL_CHAR, #93 

#1, AED_L_FLAGS+2 


#1, R1, ECHO_DESC 
INPUT SuF FERS) EROD, ECHO_DESC +4 
ECHO_BESC 


#1 


ECHO_DESC 
#1, KED_PuTOUTPUT 
SEGMENT“SIZE, =(SP) 
AED 6 LINE, -(SP) 
#2, SCRSERASE_LINE 
AED_B_COLUMN, ~-(SP) 
AED“B"LINE, -(SP) 


#2 AED_SEGCOMBINE 
# 200, RED_L_FLAGS+1 


<> 


Pe Se Ge Se Ge Se Ge Se Ge Ge Ge Be Be Ge Se Se Se Ge Se Se Fe Ge Se Se Fe Se Fe Ge Fe Fe Ge Ge Se Fe Se Ge Se Se 
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s 


12 
13-5 -1 2:47:14 AX-11 Bliss-32 V4.0-742 P 41 
ACT_DEL_WRD = delete current word 1 3007138 $3:65:35 ACLEDT. SRCJAEDMAIN. 83251 se (8) 


3 111 1 1 ZSBTTL ‘ACT_DEL_WRD = delete current word’ | 
: 43) } ! ROUTINE ACT_DEL_QRD = | 
: i 1869 yi 

: + 5 ! 6 i FUNCTIONAL DESCRIPTION: 
: 1125 1 § 1/ This routine deletes the word (all characters until the first non | 
3; 11 $ 1871 1! alphanumeric character) starting at the current cursor position. 
3 1 i : ; : The deleted word is placed in storage for later retrieval. 
> 1129 1574 1! CALLING SEQUENCE: 

: 1130 1579 1 ACT_DEL_WRD () | 
311 2 1339 1 § INPUT PARAMETERS: 

a 1359 1 i me | 
> 1135 1380 1 | IMPLICIT INPUTS: 

3 i 128) ; : OWN storage 

; 1138 1388 1 | QUTPUT PARAMETERS: 

t H00 1388 1 i = 

: 1141 1386 1 | IMPLILAt OUTPUTS: 

a ein ie 

> 1144 1589 1 | ROUTINE VALUE: 

3 1145 1590 1! 1 if successful 

: ps 34 ; : error status otherwise 

> 1148 1393 1 ! SIDE EFFECTS: 

3 1149 1594 1! The Line segment table is updated as necessary, ACE Line pointers 

3; 1150 1595 1! are updated, and the object's ACL is updated as necessary. 

3 1151 1596 1! 

; 1126 1597 1 !-- 

3 115 1598 1 

3 1154 1599 BEGIN 

Mg TBP voce 

: 1189 1606 DEL_WORD_BEGIN, ; Beginning offset of word 

3 1138 1997 DEL_WORD_END; ! End offset of word 

: 1109 1982 ' If the current ACE is marked as untouchable, no modifications are allowed. 

: 116@ 1809 IF .AED_L_FIRSTLINECLINE_V_NOTOUCH) 

t Hee 1809 $e eeGin 

> 1165 1610 SIGNAL (AED$_NOMODIFY); 

3 1198 1611 AED_L_FLAGS RED_V_GOLDKEY) = 0; 

3 116 1ol¢ AED-L-FLAGSCAED_V_ACTIONKEY) = 0; 

3: 1168 161 TERM CHAR = 0; 

: 1199 1614 RETURN 1; 

: 170 eis g END: | 
: 1178 1817 ! Deallocate anything in the saved word buffer. | 
3 117% 1819 IF .AED_Q_DEL_WORDCDSC$W_LENGTH] NEQ 0 | 


AEDSMAIN 18.33 -1984 23: 4 AX-11 Bliss-32 V4.0-742 
be ACT_DEL_WRD = delete current word 14- Sep- 1984 7 43: 3 ACLEDT.SRC JAEDMAIN.B32; 1 


THEN OFEL SWORD EDS AED eo COSCSW_LENGTH], AED_Q_DEL_WORDCDSCS$A_POINTER)); 
AED_Q_DEL_WORDEDSCS W_CENG 


AED_L_FLAGSCAED_V_MODIFIE 
AED-L_FLAGSLAED_V_FIRSTCH 


! Delete the word. 


IF .SEGMENT_SIZE GTR 0 
a BUFFER. INDEX LSS .SEGMENT_SIZE 


WORD 
ata 
D 
hf ‘; 


WN —OOOnNIOu 


EGIN = ,BUFFER INDEX; 
WHICE (.BUFFER_CHAR GEQ A’ AND .BUFFER_CHAR LEQ ' 
OR FFER_CHAR GEQ ‘O* AND .BUFFER_CHAR LEQ ' 


INIWAIWNIWNrororororonenoreonor 


WONOUESWN $0 OONAUS WN 0 OONOUES ARO OONOULSWN oO 


BEGIN 
BUFFER_INDEX = .BUFFER_INDEX + 1; 
their INDEX GEQ . SEGMENT * side 


BEGIN 
BUFFER_INDEX = .BUFFER_INDEX = 1; 
EXITLOOP; 


DNAVUSWN—OVOOnNOuw 


AED-L-STATUS = ALLOCATE (AED _Q DEL L WORDEDS sv LENGTH i; 
IF NOT .AED_L_STATUS 
THEN 


So Oo 


EGIN 

SIGNAL (.AED_L_STATUS); 

AED_L FLAGSCRED™ V_GOLDKEY] = 0; 
RET TORR 0; 


POPOPOPONINONONONOPONUNONY 2 2 2 st 


32239893 


END 

CHSMOVE (. ;AED Q DEL WORDLDSC$U LENGTH], 
PUT BUFFERC.DEL WORD BEGIN 

Da “DEL L WORDLDSCSA. POINTERS); 


(su UTLENGTHI = - SEGRENT SIZE - .DEL_WORD_END; 
CSA~POIN TER RI = BOFF FERC .DEL_WORD_ENDJ; 

= 7SEGMEN size wae ED_0_DEL POORDCDSSu_ LENGTH); 
cCoSc$w_ aT GEQ’1 


ee NSU oP or a? at ot et et et et kh 


8 
SERSSET CURSOR (.AED_B_LINE, .AED_B_COLUMN) ; 
AED -PUTOUTPUT (ECHO_ BESC); 


EN 
CHSCOPY’ (,ECHO_DESCCDSCS$W_LENGTH], INPUT_BUFFERC.DEL_WORD_ENDJ, 


{2 - -BUFFER INDEX input _BUFFERC..DEL_WORD_BEGINJ); 
BUFFER INDEX = - (EL DB 
SCRSER RASE IL AED’ B _LINE, Mee GHENT SIZE + 1); 
AED _SE T EORSOR ( CCAED -5- “LINE, .AED_B_COLUMN); 


FWN —OOONOUEWNA) OC 0On 


RS 


OUSWN—OVOONOUSWN— 


ee ee a ee ed ee ee ee a De ee ee a ee a a el ee el a ee el el el a el ed 
POPIMONINORY — 


MEW 
vw 
ababatbudabababaiababuiabuiababababaiimiwabababwiababab—ababuabababuaiabababababababsibmbababababubababababababubababa 
DAEAAAAAAAAASAAAA AAA AAAA AAA AA AAAAAAA AAA AA AA AAA AAAAAAAAOAAA AH 


AAANANWNE BB ANNAMALAI B&B BANANA 


POPOPGPDNUNINIPNPYNININNYPONPYNTy 


SO O0Onou 
SANS 


Wwurornonoens 
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vo ACT_DEL_WRD = delete current word 127308-1 3b $7395 536 Yaecepr® SRC JAEDMAIN.B3221 
: } 3 1677 ELSE AED_SEGCOMBINE (BUFFER_INDEX, 1); 
31 1838 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
3 1235 1680 AED“L ef LAGs AED “VZACTIONKEY] = 0; 
31 1681 TER ne aca 
: 1 168¢ : 
: 1238 16 
: 1239 1684 17 END; ! End of routine ACT_DEL_WRD 
OFFC 00000 ACT_DEL_wRD: 
.WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
5B 000000006 00 9€ 00002 MOVAB SCRSSET. CURSOR, R11 
SA 0000' CF 9E 00009 MOVAB BUFFER_INDEX, R10 
59 0000" CF 1 0000 MOV AED_L_FLAGS, R9 
5E 04 C2 0001 SUBL2 #4,7SP 
50 40 AI DO 00016 MOVL AED_L_FIRSTLINE, RO 
51 0A AO 04 €1 OOO1A BBC #4,°10(RO), 4$ 
12 69 03 €1 OOO1F BBC #3, AED_L_FLAGS, 1$ 
01 DD 00023 PUSHL #1 
15 DD 00025 PUSHL 5 
000000006 00 02 FB 00027 CALLS #2, SCRSERASE_PAGE 
01 DD 0002E PUSHL 
15 DD 00030 PUSHL fat 
68 02 FB 00032 CALLS #2, SCRSSET_CURSOR 
000000006 8F DD 00035 1$ PUSHL #AED$_NOMODTFY 
000000006 00 01 FB 00038 CALLS #1, CTBSe 1 GNAL 
0B 69 03 £1 00042 #3, AED L_FLAGS, 2$ 
7E 20 AY 9A 00046 MOVZBL -B.COLOMN, - 
7E 24 AD 9A OO04A MOVZBL AED-B-LINE, -(SP 
6B 02 FB 0004E S$ #2, ~SrRSset CURSOR 
00000000* 8F D5 00051 2$ L - #<AED$_NOMOBIF Y&7> 
14 13 00057 BEQL 
00000000* 8F 14 ag 03 09 ED 0059 CMP ZV #0, #3, AED_L_WORSTERR, #<AED$_NOMODIFY&7> 
2 
14 a9 000000006 8F D0 00065 MOVL § #AEDS_NOMODIFY, AED_L_WORSTERR 
015E 31 0006D 3$: BRW 
50 60 AS 3¢ 00070 4$: MOVZWL AED_Q_DEL_WORD, RO 
11. 13 00074 BEQL 
64 AD SF 00076 PUSHAB AED. Q DEL _WORD+4 
04 AE 50 po 90079 MOVL 4tSP 
04 AE 9F 0007D PUSHAB RR p) 
000000006 00 02 FB 00080 CALLS #2, LIBSFREE_VM 
60 a9 BA 0087 5$: CLRW AED _G_DEL_ 
69 80 8F 88 OOOBA BISB2 #128, ~AED"L_ FLAGS 
01 Ag 10 gA OO08E BICB2 #16, AED_C FLAGS+1 
51 00B8 4=669 «3C 009¢ MOVZWL SEGHENT _ SIZE, R1 
03 14 909 BGTR 
0129 31 00099 6$: BRW 18$ 
51 6A D| 09C 7$: CMPL § BUFFER_INDEX, R1 
F8 18 OOO9SF BGEQ 6$ 
57 6A DO O00A1 MOVL BUFFER_INDEX, DEL_WORD_BEGIN 
50 00C4 C9 YE OO0A4 88: MOVAB INPUT BU 
50 00 BA4O 9A O00A9 MOVZBL @BUFFER_INDEXCROJ, RO 


See Se Se Se Se Se Se Se Se Se Se Fe Ge Se Ge Fe Fe Fe Fe Ge Fe Ss Ge Se Se Se Ge Se Se Be Se Se Se Se Be Be Be Be Be Se Be Be 
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AEDSAAIN 15-Sep-1984 23:47:14 AX-11 Bliss-32 V4.0-742 Pp 64 A 
_DEL_WRD - delete current wor -Sep- :52: ACLED CJAEDMAIN.832; (8) | 
y542000 ACT_DEL_WRD = del d 14-5 : 1986 7 52 8 EDT.SR 5 E 32:1 wef 8 \ 
41 BF 0 91 OOAE CMPB R0. #65 : | 
6 1F 0008 BLSSU 9 : 
SA OS 91 OB, CMPB RO #90 : 
A 18 00083 BLEQU 108 : | i 
30 09 OBA 9$ CMPB RO #48 t 1634) 
1F OOOBD BLssu 118 : | 
: nt a ; : 
6A 06 ages 10S: INCL  BUFFER_INDEX : 1637 ; 
51 6A D1 O¢6 CMPL BUFFER. INDEX, R1 + 1638 
BF DF Done ee Oe + 1641 
GA be O00ce 118: INCL § BUFFERTINDEX > 1645 : 
56 6A DO OOOCF MOVL. BUFFERTINDEX, DEL_WORD_END + 1646 : 
60 a9 56 57 A3 000D2 SUBW3 DEL -woRd BEGIN. DEL_WORD_END, + 1647 
64 Ad OF 00007 PUSHAB AED-Q"DEL-WORD+4 + 1649) 
06 AE 60 Ad 3C OOODA MOVZWL AED-Q"DEL “WORD, 4 (SP) : 
04 AE 9F OOODF PUSHAB 4(SP)~ : 
000000006 00 02 FB 000E2 CALLS #3, L LIBSGET_VM : 
8B a8 PS Spore BLBe VM Fle ; 
60 a9 00 6E Pe 00 5? GogeF MOVCS #0; (SP) #0, AED_Q_DEL_WORD, - ; : 
oosc 38 C9 58 00 OOOF7 12$: MOVL VM STATUS, “AED t STATUS ; : 
52 oo8c C9 £8 OOOFC BLBS ADL TATUS, 168 ; 1650 
12 69 03 €1 00101 C “hep. L_ YP Gs: 13$ > 1653 i 
01 DD 00105 PUSHL #1 ; : 
15 DD 00107 PUSHL Hs ; : 
000000006 00 02 FB 00109 CALLS #2, SCRSERASE_PAGE ; : 
01 DD 00110 PUSHL ; : 
15 DD 00112 PUSHL #1 : : 
68 02 FB 00114 CALLS ae. SCRSSET CURSOR : : 
o0sc 46¢9 «(DD 00117 13$:  PUSHL AED ATUS F ‘ 
000000006 00 01 FB 0011B CALLS -trase ; : 
08 69 03 £1 00122 BBC +3. AED L FLAGS if 4$ : i 
7E 0 Ad 9A 00126 MOVZBL AED “COLOMN, : : 
7E 4 Ad 9A OO12A MOVZBL AED aM : ; 
68 0g FB Ole CALLS “BcLINE, CURSOR 3 
50 008 C9 DO 00131 148:  MOVL AED_L_STATUS, : 
07 50 93 001 BITB RO, #7 : 
11 13 00139 BEQL 5 ; : 
51 50 03 0 EF 00138 EXTZV #0, #3, RO, R1 : ; 
51 14 Ad 03 2 FD 9140 CMP ZV 136 #3. AED_L_WORSTERR, R1 : 
146 Ad 0 oO 80128 MOV , AED_L_WORSTERR ; 
01 a9 “o A a0135 15$ BicB2 * AEDTL-FLAGS+1 : 165% 
64 B9 00C4 C947 60 Ad 28 88 16$:  MOvc3 tbecseeb “Beatin NSacoee. FER- email ; 1659 
01 «Ad 92 BA 0015C¢ B1cBe ok LAGS+4 > 1660 
04 AA 0088 C9 A3 00160 SUBW3 = «DEL AED At END SEGMENT_SIZE, ECHO_DESC > 1661 
08 AA 004 C946 9— 00167 MOV INPOT _BUFFERCDEL_WORDENDJ, ECHO-DESC+4 : 1668 
0088 C9 60 AD A IgE SUBW2 AED _Q-DEL_WORD,  SEGHERT. Size > 166 
04 AA : 174 ist HO_BESC™ > 1664 
7E 20 Ad 9A 00179 MOVZBL AED_B_COLUMN, -(SP) + 1667 


cre er earn meee nr a ad 
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; Routine Size: 478 bytes, Routine Base: 
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a” TM 
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1685 1 ZSBTTL ‘ACT DEL_EOL = delete to end cf Line’ | 
| 
| 


erpena N 


1 ROUTINE ACT_BEL_EOL = 
lee 


OCD 


FUNCTIONAL DESCRIPTION: 


PAA 


wooo 
wr 


This routine deletes from the current position in the Line to the 
end of the current Line segment. 


CALLING SEQUENCE : 
ACT_DEL_EOL () 


INPUT PARAMETERS: | 
none 


IMPLICIT INPUTS: 
OWN storage 


Oooo 
win 


SAR 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: | 
1 if successful 
error status otherwise 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
i QUTPUT PARAMETERS: 
none 

i 

i 

i 

i 

i 

i 

i 

! SIDE EFFECTS: 

The Line segment table is updated as necessary. 
lo 


IF .AED_L_FIRSTLINECLINE_V_NOTOUCH) 
THEN 


(AEDS_NOMOD! 

LAGSCAED_V_G 

LAGS gfe VLA 
s . 


NAUEWN “OVO ONOUS WO 0an 


MNMNMNININININ SS 3 SS OOO 


FY); 
OLDKEY] = 0; 
CTIONKEY] = 0; 


MITOPROPORINOPORINIPOPPoPPpofnoforny 


LSSELEALAN AS SSIS ARAN SSHVSARERIS SOSA run OOOO Rn 


! Delete anything currently in the saved Line buffer. 


IF .AED_Q DEL_LINECDSCS$W_LENGTH] NEQ 0 

THEN DERLCOLATE (.AED_Q BEL_LINECDSCSW_LENGTH], .AED_Q_DEL_LINECDSCSA_POINTER)); 
AED_Q_DEL_LINECDSCS$W_CENGTH] = 0; 

!' Note that the Line has been modified. 


AED_L_FLAGSCAED_V_MODIFIED) = 1; 


a a a ee a ee a el al el ll ll a a el 
SSSI IIIA OOOO 


SPAWN AAIWI III 


—COOOBNOUS WN —O0® 


Be Se Se Se Se Se Se Se Be Se Bs Se Ge Ge Se Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Se Se Ge Se Se Se Se Ge Ge Ge Se Se Ge Ge Ge Gs Ge Se Se Se Ge Se ee Fe Se Se Se Se betes 
ee ee a ee ee a a ee le a el el ec a a a a ee ee 
en | 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
! Check to see if the ACE is untouchable. If so, it cannot be modified. 


«<« ww 
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| DSMAIN 18-$e -1984 23:47:14 AX-11 Bliss-32 V4.0-742 Pp 47 
| Yoee008 ACT_DEL_EOL = delete to end of Line 127808-1 982 $9395 536 ACLEDT.SRCJAEDMAIN.B32; 1 age 9) 


174 AED_L_FLAGSCAED_V_FIRSTCHAR] = 0; 
174 ! Delete to the end of the Line. 
AED_L_FLAGSCAED_V_DELBOL3 «= 0; ! Note direction of delete 


If SEGMENT _SIZE GTR 0 
we SUFFER. INDEX LSS .SEGMENT_SIZE 


BEGIN 
AED_L_STATUS = ALLOCATE ((-SEGRENT SIZE = BUFFER. INDEX). 
$A_POINTER]); 


OWONOUVUES WN "OVO ONO 


PUPAE £ 


33 ; 
; 1 ; 
3 1 : 
3 1 17 ; 
3: 1 17 : 
3 1 17 : 
3 3 17 : 
3 3 17 : 
3 1 17 : 
3 1 17 | ; 
3; 1308 17 : 
3:1 17 0_DEL-LINECDSC : 
3 1310 17 IF NOT .AED_L_STATUS : 
3 1311 17 THEN : 
: 1 \¢ 17 EGIN | : 
3; 131 1757 4 SIGNAL (.AED_L_ STATUS); ; 
3 1314 17 4 AED_L ~FLAGSERED _V_GOLDKEY) = 0; : 
: 1315 17 4 AED-L-FLAGSCAED-V_ACTIONKEY] = 0; : 
31 16 1760 4 TERM _CHAR = 0; ; 
: 131 1761 4 RETURN 0; | : 
: 1318 1768 END; : 
: 1319 176 AED_Q DEL_LINECDSCSW_LENGTH] = .SEGMENT_SIZE - ereR INDEX; : 
: 1320 1764 CHSMOVE ([AED_O_DEL_CINECDSCSw LENGTH], | InPu T BUFFER .BUFFER_ INDEX] : 
: 1321 1765 ~AED_Q_BEL_LINELDSC$A_POINTERS); : 
31 i 1766 SEGMENT_SIZE = “BUFFER _INDEX; ; 
; ! ; 170 SCRSERASE LINE < -AED_B_LINE, .AED_B_COLUMN); : 
: ' 5 1769 ELSE AED_SEGCOMBINE (BUFFER_INDEX, 1); | : 
31 $$ 1771 AED_L_FLAGSCAED_V_GOLDKEY) = 0; | 

3 1328 77¢ AED-L-FLAGSCAED-V_ACTIONKEY] = 0; 

.% 29 177 TERM_CHAR = 0; 

: 1 1774 RETU URN 1 

: 1 31 1775 

: 1332 1776 1 END; 


OFFC 00000 ACT_DEL_EOL: 
- WORD 


0 Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 1686 
5B 000000006 8F DO 00002 MOVL § #AEDS_NOMODIFY, R11_ ; 
5A 000000006 00 9€ 00009 MOVAB SCRSERASE PAGE, R10 : | 
59 0000' CF 9E 919 MOVAB BU INDEX, R9 ; 
38 000000006 60 9€ 0001 VAB SCRSSET FURSOR RB : | 
& 0000' CF 9 0001C MOV FLAGS, R? : 
3 04 Cé 00021 SUBL ; 
5 40 A7 DO 00024 MOVL ae 4 FARSTLINE. RO : 1723 | 
45 OA AQ 4 €1 0 8 BBC #4,710(RO), 4$ : 
0E 6 3 £1 D BBC a3, AEDS Re FLAGS, 1$ : 1726 
1 DD 00031 PUSHL #1 : 
15 DD 4 PUSHL os" : 
6A oe FR ; CALLS #2, SCRSERASE_PAGE $ 
1 0D 00 PUSHL #1 é 
15 DD OO03A PUSHL #21 : | 
68 02 FB 0003C CALLS #2, SCRSSET_CURSOR : 


en" 


00000000* 8F 


50 


3} 


ACT_DEL_EOL = delete to end of Line 


14 


04 


14 


000000006 
08 


A7 


AE 


00 


OE 


14 


04 


000000006 


01 


000000006 


008C 


000000006 


AQVinqn Hvmov'o 
NN MOONS 


o 
> 


68 


3 


00000000* 


58 
5¢ 
04 


58 
80 


0088 


5¢ 


04 


0088 


5¢ 
008¢ 


008C 


0 
4 


008C 


00 


So 
So 
FP XOWDOOM-OPOPUIY —- PMNOO—-Wor Poon 


FOO 9 NINN NI SIN 1 S4§ WNP SIO ONO OMIM ONO OWN FB NINIM ONS NOD FOO MVNA @ 


SOO-"MMN OF SPOON OOO" COON VWIoQnumoyY o 


15- 
14- 
mans 
tie 
& 4 
7a 05 
of Hiss 
i He 
i Hiss 
tiie 
38 
1 07 
pe 
OF 007F 
FB 0008 
B4 0008 
i Hs, 
Bt 00094 
14 00099 
31 00098 
D1 O009E 
18 000A1 
oF 4 4 
C3 O00A6 
9F OOOAB 
FB QOOA 
o Hiss 
5 00088 
C2 000C0 
ec Bpoce 
00c8 
4 OOCA 
E8 OOOCF 
E1 00004 
DD 00008 
DD OOODA 
FB OO0DC 
Bi 
HB 
DD O00E6 
Hist 
5A OF 
9A OO0F 
F OFD 
DO 001 
93 001 
1 108 
Hs 
3 115 


Be 11:52:29 


0, #3, AED_L_WORSTERR, #<AEDS$S_NOMODIF Y&7> 
AED_L_WORSTERR 


R11, 


AX-11 Bliss-32 V4 
ACLEDT.SRCJAEDMAIN 


NOMOB IF Y& 


=($ 
f_CURSOR 


> 


AED_Q_DEL_LINE, RO 


DEL_LINE+4 


14$° 

py 

AED_Q 

RO, 4TSP) 

"sane vM 
ree § LINE 

+ioBe “Rebot 

#20, AED ct 

SEGMENT _ SIZE, RO 

13$ 


AED_Q_DEL_LINE+4 
BUrFER. INDEX, RO, 4(SP) 


VM ara AED 


ae 


STATUS 


ts 


STATUS 


“hed ul TPLAGS. +} J 


Hs SCRSERASE _PAGE 


AED_ 
Ae at a 
OL MN. vaisP) 


ie 
Rod? 


1 
i. & 


Ae RPS t ‘VoRSTERR, RI 
11 


i erin CURSOR 
6_L_STATUS 


alts CURSOR 
ATuUS, 


-0- eset) 
-B32;1 


Se Pe Se Se Se Se Se Se Se Se Se Se ee Se Se Ge Ge Ge Fe Se Fs Se Se Se Se Se Se Se Se Se Se Se Se Be Se Fe Se Se Se Se Be Se Bs Se Fe Se Se Se Se Fe Se Fe Se Se Se Se 


13 
DSMAIN A, -1984 23:47:14 AX-11 Bliss-32 V4.0-742 Pp 69 
v54~000 ACT_DEL_EOL = delete to end of Line 2=308=1382 F365: G ERCLEDT sre AEDMAIN.B32;1 — (9) 
14 AT 0 DO 001 MOVL. RO, AED_L_WORSTERR 
01 A? 2098 F AA O0011B 11$: BICw2 #9300 RED_L_FLAGS+1 1759 
AI 94 001 CLRB TERM. CHAR 1760 
3F 11 001 R 4 1761 
5 69 DO 00126 128:  MOVL. BUFFER X, R6 1763 
58 A? oops ¢ 5 A3 001 R6, SEGMENT SIZE 0 
C B87 00C4 C746 58 A? 28 001 AEb .O, EL THE, ANP “80 
0088 (7 56 80 13 Vw  R6, SEGMENT SIZE 1 
E 30 AZ 9A 001 MOVZBL AED_B_COLUMA, -(S 176 
43 4 A? 9A 0014 MOVZBL AED-B-LINE, <(SP) 
000000006 0 Oe f 14 CALLS #2, SCRSERASE_LINE 
1 14 BRB 14§ 1748 
1 OD OO14F 13$:  PUSHL #1 1769 
9 DD O19 PUSHL R9 
00006 CF 2 FB 001 CALL ae AED_SEGCOMBINE 
01 =A? 2008 F AA 00158 14$:  B1CW2 #8200, AED_L_FLAGS+1 177 
28 «AD 94 0015 CLRB. Ss TERM CHAR 177 
50 01 DO 0016 MOVL LR 1774 
04 01 RET 
50 D4 00165 15$: CLRL RO 1776 
04 0016 RET 


; Routine Size: 360 bytes, Routine Base: S$CODE$S + OCDO 
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=o 
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wn 
mere 
x 
cw 
De 
z 
wm 
a 
& 
Bete Se Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Se Ge Se Ge Fe Se & 
— 
~~ ™N 
oa 
w 


13 
ACT_DEL_ACE = delete current ACE 13-Sep-1984 HLCM et eeet tartan 


5 
S 


FLAGSCAED_V_ 
TERM_CHAR = 0; 
ETURN 1 


! Delete anything currently in the delete ACE buffer. 
UNTIL REMQUE (.AED_Q_DEL_ACECLINE_L_FLINK], REMOVED_LINE) 


WPS OONOUE WN “OOO NOUES WN O00 


WALA ARO ROMPRES 2 


BEGIN 
REMOVED _ACE = REMOVED LINECLINE_L_BINACE); 
IF MOVED_LINECLINE_V_BEGINACEJ 


ss 


3 7 1777 1 2SBTTL ‘ACT_DEL_ACE = delete current ACE‘ { 
4 ieee | Routine ach Der cRee™s ‘ , 
3 : a4 1 ” { 
:7 ey yi | 
: 1389 178¢ 1 | FUNCTIONAL DESCRIPTION: | 
: 1341 17 1/ This routine deletes the current ace (bounded by the first and last | 
3 1 ¢ 1785 1! Line segment pointers) and stores it for later retrieval. The ACE ‘ 
: ; Z i : is also deleted from the object's ACL is necessary. i 
> 1345 1788 1! CALLING SEQUENCE: 
: : $ 178 : : ACT_DEL_ACE () i 
> 1348 1791 1! INPUT PARAMETERS: 
: 1366 1998} | mee 
> 1351 1794 1! IMPLICIT INPUTS: 
; ; 2g 179? : OWN storage : 
> 1354 1797 1 | OUTPUT PARAMETERS: 
3 : 2 1738 ! none F 
:1 2 1800 1 | IMPLICIT OUTPUTS: 
3 1328 st . none i 
:1 1808 1! ROUTINE VALUE: : 
: 1361 1804 1! 1 successful 

: 1306 H «tg : } error status otherwise 

> 1364 1807 1 ! SIDE EFFECTS: 

; 1365 1808 1! The Line segment table is updated as necessary, ACE Line pointers 

: 1306 199 ’ are updated, and the object's ACL is updated as necessary. 

Pee Yi 

re EE hay 

; 1378 iS ! Check to see if the ACE is untouchable. If so, it cannot be deleted. 

; 139% 18 IF .AED_L_FIRSTLINECLINE_V_NOTOUCH] 

: 1376 B19 § (MEN 

: 1377 18 SIGNAL (AED$_NOMODIFY); 

; 1378. 1 AED_L_FLAGSCAED_V_GOLDKEY) = 0; 

; ' } AED _L ACTIONKEY) = 0; 

31 1 

3 1 

31 1 

3:1 1 

3 1 1 

5 F 1 

3 1 1 

3 7 1 

a ¥ 1 

3 1 1 


5 
: 


ACT_DEL_ACE = delete currert ACE Sep-1 ACLEDT.SRCJAEDMAIN.B32;1 
AND .REMOVED_ACE NEQ 0 
THEN DEALLOCRTE (REMOVED ACECACESB $426] REMOVED_ACE) 
DEALLOLATE (REMOVED LINECLINE_W SI size + $BYTEOFFSET (LINE. T_TEXT), 
MOVED CINE); 
NEW Text INE = AED EPSEGMENT QO; 
AED-POSITION (.AED_C_FIRSTLINE) 
AED“L L BEGINUINE = “heb. L ~PEGINLNECLINEL L_BLINKI; 


TEMP CINE = .AED_B LIN 
NEW 


SISSSSSSS 

vw 
SPRSLLRSSLRA ABS 
See Bn 


; 1 
: 1 1 

ra | 1 
| 1 
: 4 ‘ 
: 1 i 
: 1 1 
; } : 
: 1400 1 -TEXT_LINE = TAED_L_FIRSTLINE; 
+ 1401 1844 
: 14 : 1845 BEGIN 
: 14 1 6 AED_L_FIRSTLINE = .AED_L FIRSTLINECLINE gL L_FLINK]; 
> 1404 1 REROUE (NEW_ TEXT LINECTIRE L_FLINK), REMOVED _LINE); 
3 1405 1848 IF NOT .REMOVED CINECLINE_9_Bummy) 
3 1406 1849 THEN INSQUE (REMOVED LINECLING L_FLINK 
+ 140 1850 -AED_Q_DEL_ACECLIRNE-L BLINK) : 
: 1408 1851 TEMP_LINE = .TEMP"LINE ? 1; 
: 1409 185¢ NEU” TEXT_LINE = .AED_L_FIRSTLINE; 
$1411 1854 2 UNTIL .REMOVED_LINE EQL .AED_L_LASTLINE; 
: 141 1855 AED_L_STATUS =-AED_U TEACL (0); 
> 141 1 36 AED-L_FLAGS AED_V_INSERT) = AED_C_FLAGSCAED_V_INSERTEXT) = 0; 
> 1414 185 AED-L-FLAGSLAED-V-MODIFIED] = 0: ~ 
: 1415 1858 2 IF ROT ws _L_STATUS 
: 1416 1859 2 THEN 
: 141 1860 BEGIN 
: 1418 1861 AED L FLAGSLAED _V_GOLDKEY] = 0; 
: 1419 1866 ETORR 6 
: 1420 186 EN ND: 
+ 1421 1864 2 IF .AED_L_FIRSTLINE EQLA AED_Q_LINETABLECLINE_L_FLINK] 
> 14 : 1865 2 THEN 
: 14 1866 BEGIN 
> 1424 186 BUFFER INDEX | = 0; 
t 1425 1868 L_FLAGSCAED_V_ENDACL] = 1; 
+ 1426 1869 AED +t “FLAGSCAED-V-INSERTEXT] = 1; 
+ 1427 1870 AED-W-TOTALSIZE = SEGMENT SIZE = 0; 
> 1428 1871 INSOUE (AED DT CURLINELLINE L_FLINKI, 
+ 1429 1872 BG LINET ABLEL CLINE _L_BLINK)); 
: 14 187 AED FIRSTL oe = AED te tAST INE = AED_T_CURLINE; 
: 1431 1874 A t> a Pat FLAGS) = LINE_M~BEGINACE; 
; 14 5 1876 ihe L_FLAGSCAED_V_PROMPT] 
: 1435 1898 4 EN REGIN 
: 14 1879 4 AED_B_ACETYPE = 0; 
; 1437 1880 4 AED"L~FLAGSCAED_V_NOITEMSEL] = 0; 
: 14 1881 4 AED" SELECTFIELD™ (BUFFER_INDEX); 
: 1439 1 ¢ D; 
+ 1440 188 END 
+ 1441 1884 2 ELSE 
: 1448 1885 BEG! 
+ 144 1 86 BUFFER_INDEX = 0; 
+ 1444 188 AED_COPSEGMENT (.AED \ FIRSTLINE); 
+ 1445 1 8 INSQUE (AED_T_CURLINECCINE _L_FLINK), 
+ 1446 1 AED_C FIRSTLINECLINE_L_BLINK)); 
> 1447 1890 AED_L _FIRSTLINE = AED_L_LASTLINE = AED_T_CURLINE; 


S-Fep-10R 25:47:14 yaN-11 BL ingc32 v4.0-742 Page 16 
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ACT_DEL_ACE = delete current ACE 
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1$-Sep-1984 


AED W_TOTALSIZE = AED Et 
UNTTL” »AED_L_LASTLINECCINE_V_END 


BEGIN 

IF .AED_L LASTLINE EQLA AED_T_CUR 

Wen AEB C_LASTLINE = .AED_C CAST 
FASTCING s "AED. LASTCINEL 


L 
t 
AED tz “TOTALS ITE = “AED” a TOTALSIZE 


AX-11 Bliss-32 V4. 
ACLEDT.SRCJAEDMAIN 


<> 


4-Sep-19 
L_FIRSTLI WeELINEvS12E3; 


INE 

INECLINE L FLINK); 

INE_L 

+ “kept mt NLASTLINECLINE _W_SIZE); 


AED_L_ CURACE = .AED_L_FIRSTLINECLINE_L_BINACE); 


AED_B COLUMN = -BUFFER_INDEX + 
AED “CBEGINLINE = .AED_L NBEGINL IWECLINE WLLFLINKI; 
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Dk ak lh el a ea a ak el eke la 
VUPWwN— 

oo 

Sos 


Oo 


8 


: _ repaint the qteplay, This is done by either scrolling down and repainting 
from the current position to the 


he first part of the display or repainting 
poe of the display (or the end of the ACL). 


IF .AED_B_LINE LEQ 10 
THEN 
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St et el ae ete bd 
NOUS WN O00 


ww 
RAN 


BEGIN 
INCR J FROM 0 TO .TEMP_LINE = .AED_B_LINE 


IF Eat OQ THEN SCRSSET_CURSOR (20,1); 
scriur. SCROLL (); 


NEW Text LINE = .AED_L BEGINLINE; 
INC CR J FROM 1 TO .AED_B_LINE 


BEGIN 
ECHO_DESCCDSC$W_LENGTH] = .NEW_TEXT_LINE 
ECHO-DESCLDSCSA~ POINTER] = WITEXTLINE 
SCRSSET_CURSOR T.J 
AED_PUTOUTPUT cEtHO_ peice): 


! ween TEMP seee 


SCRSERASE LI wth J, sECHO DESCCOSC$W_LENGTH] + 
IF NEW TEXT_LINECLINE_V_REPLACE] THEN NEW TEXT. "line = 
NeW TE EXT_LIN INE = ioe TEx? nE TREE ING _L_FLINRI; 


N 
4 oh te L EXILINE = pevect 
NEQ_TEXT RED_T 


oNEW_TEXT_LINECLINE_L_FLINKI; 


URLINE 
ELSE A NEW" TEXTOL AED ‘7 CURL INECL INE aL _FLINKI; 


FROM "HED. : LINE 16 20 
BEGIN 


wine TEXT_LINE EQLA AED_Q_LINETABLECLINE_L_FLINK] 


BEGIN 
IF + oe: 20 THEN SCRSERASE_PAGE (.J, 


EXITL 
ECH iene W_LENGTH) = er 
ECHO" DESCLDSCSA~ POINTER] = NEW_TEXT-LINECLINE 
SCRSSET_CURSOR T.J, 1); 
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NOUS WN—O 


00000000* 


8F 


ACT_DEL_ACE = delete current ACE - 

1 ug 4 AED_PUTOUTPUT (ECHO DESC); 

1 4 SCRSERASE LINE ( 21 ea LENGTH) +1); 
13 9 NEW. TEXT_CINE = ‘new TILINECLINE_C_FLINKI; 
1 END; 

19 : AED_L_ FLAG GSTAED V EIRSTCHAR] = ; 

1954 @ AED-SET CURSOR T.AED B LINE, até _B_ COLUMN) ; 

1955 2 AED-L_FCAGS AED.V GOCB REY) = 6; 

1956 AED“L~FLAGSLAED~ “V “RET TONKEY] ="0; 

195 TERM CHAR = 0; 

1958 2 RETURN 1; 

1959 

1960 1 END; 

OFFC 00000 ACT DELLACE: 
5B 000000006 00 9€ 90002 MOVAB 
5a 000000006 00 9E 00 MOVAB 
59 000000006 8F 00 00010 MOVL 
58 000000006 00 9€E 00017 MOVAB 
57 000000006 00 9E OO01E MOVAB 
36 0000° CF 9€ 900¢ MOV 
5 0000" CF 9E 0002A MOV 
SE 04 C 000¢F SUBL 
50 65 DO 000 2 MOVL 

47 OA AO 04 £1 0003 BBC 
OE CO OAS 03 E1 0003A BBC 
1 DD 0003F PUSHL 
15 DD 00041 PUSHL 
68 02 FB 00043 CALLS 
01 DD 00046 PUSHL 
15 DD 00048 PUSHL 
67 02 FB O004A CALLS 
DD 90040 1$: PUSHL 
000000006 00 01 FB 0004F CALLS 
0B co. OAS 03 £1 00056 BBC 
7E EO Ad5 9A 00058 MOVZBL 
ze E46 AS 9A 0005F MOVZ 
6 02 FB 00063 CALLS 
00000000" 8F D 0066 2$: TSTL 
10 1 6C BEQL 
D4 AS 03 00 ED O06 CMPZV 
04 18 0007 BGEQ 
D4 AS 9 DO OO07A MOVL 
021A 31 O07E 3$: BRW 
FB AG 10 8) F 08] i$: REMQUE 
D 000 BVS 
50 FB AG 00 0088 MOVL 
FC 6 oc AO D OBC MOVL 
10 A AO F9 1 BLBC 
OE 095 BEQL 
FC «AG 9F 00097 PUSHAB 
04 AE FC BO 9A OO09A MOVZBL 


w$ep-l9ee 11:52:29 


yet 1 Oi iegeze V4.0-742 
ACLEDT.SRC AEDMAIN. 832;1 


! End of routine ACT_DEL_ACE 


R2,R3,R4,R5S,R6,R7,RB,RI,R10,R11 
ERASE LINE, R11 


2PrZNnNuvarnn 


, SCRSERASE_PAGE 


» SCRSSET_CURSOR 


B_C 
A D-B-LI SP) 
STRSSE CURSOR 
echeD$ RNOMOBIF Ye?> 
#0, #3, AED_L_WORSTERR, #<AEDS_NOMODIF Y&7> 
R9, AED_L_WORSTERR 
@AED_Q_DEL_ACE, REMOVED_LINE 
REMOVED LINE, RO 
Re “REMOVED_ACE 
5$ 
cE 
JAC 


BLACE, 4(SP) 


Sete Se Se Se Se Ge Se Se Se Se Se Fe Se Se Se Se Se Se Ge Fe Fe Se Ge Se Fe Pe Se Fe Se Fe Se Se Se Se Se Se Se 


1778 


1817 
1820 


<> 
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ACT_DEL_ACE = delete current ACE 
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5$: 


6$: 


7$: 


8$: 


9$: 


1986 47:55:25 ERCLEDr°SReSAEDMAIN.852s1 


4(SP) 
2, LIBSFREE_VM 
REMOVED_LINE 
MOVED“LINE, RO 
B(RO). &(SP) 
#20, 4&(SP) 
4(SP) 


» LIBSFREE_VM 


#0, AED_REPSEGMENT 
NEW TEXT LINE 


AED_L_BEGINLINE, RO 
(RO), AED wi BE GINLINE 
D_B’LINE; TEMP_LINE 


tN 

AED_C_FIRSTLINE, NEW_TEXT_LINE 
* =F IRSTLI NE, R1 

R1J, AED_L_FIRSTLINE 

aNEW. TEX T-tINE. REMOVED_LINE 

REMOVED (rhe R 


), &$ 
cR RO). QAED_ Q_DEL_ACE+4 


*L 
heD SAL Mont? R1 
REMOVED LINE; AED_L_LASTLINE 


(SP) 

", AED_UPDATEACL 
AED“L_ STATUS 
#08704 “AED Ltt LAGS 

AED L_STATUS, 

“AED - Mites 
55 
BUF FER_INDEX 
AED_G RPINETABLE, RO 
i D“L-FIRSTLINE, RO 


#16416, AED_L_FLAGS 
SEGMENT SIZE ~ 


D_W_TOTALSIZE 

D ~TICURLINE. @AED_Q_LINETABLE+4 
D7T~CURLINE 

. AED L_LASTLI 

: vot ns St RE 

6 fw URACE 
D7L- 
D 
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14 | 
AEDSMAIN 1$-5e =1984 23:47:14 AX-11 Bliss-32 V4.0-74 P | 
y54-000 ACT_DEL_ACE = delete current ACE 12-8 08-1 9p $7:25:35 PACLEDT SRE AESMA NCB Soe 29° 485, 
04 11 00238 BRB 23$ F 
66 70 «AS 09 0 328: MOVL AED T_CURLINE, NEW_TEXT_LINE + 1935) 
52 D7 00041 238: DECL J + 1936) 
47 11 00 43 BRB 26$ : | 
50 FO OAS i: 0245 24$ MOVAB AED_Q_LINETABLE, RO + 1939) 
50 66 D1 00249 CMPL NEW-TEXT LINE, RO : | 
12 0024C BNEG 25$ : | 
14 D1 0024E CMPL j #20 + 1942) 
18 00 21 BGEO $ : | 
Q1 DD 00253 PUSHL #1 : 
g DD 00255 PUSHL J : 
68 9 FB 00 27 CALLS 2 SCRSERASE _PAGE ; | 
E 11 0025A BRB 27$ 1941 
50 66 00 0025C 25$:  MOVL NEW _TEXT_LINE, RO + 1945 
EC Ab 98 Ad B80 0035 MOVW 8 (RO), ECHO DESC : 
FO A 14 AO 9E 00264 MOVAB 20(ROS, ECHO_DESC+4 + 1946 
01 DD 00269 PUSHL #1 + 1947 
52 DD 00268 PUSHL J : 
67 02 FB 0026D CALLS #2, SCRSSET_CURSOR : 
EC Ab 9F 00270 PUSHAB ECHO_DESC : 1948 
0000G CF 01 FB tte: CALLS #1, AED_PUTOUTPUT : 
7E EC Ab 3C 00278 MOVZWL ECHO_DESC, -(SP) + 1949 
6E 06 0027¢ INCL (SP) : 
52 DD 0027E PUSHL J ; 
6B 02 FB 00280 CALLS #2, SCRSERASE_LINE F 
76 96 D0 00283 MOVL @NEW_TEXT_LINE, NEW_TEXT_LINE : 1950 
BB 52 14 F3 00286 26$:  AOBLEQ #20,7J, 228 t 1936 
C1 AS 10 88 0028A 27$:  BISB2 #16. AED _L_FLAGS+1 + 1953 
7E EO AS 9A O028E MOVZBL AED.B_COCUMN, -(SP) : 1954 
7E E4 A5 9A 00292 MOVZBL AED_8 LINE, -(SP) : 
00006 CF 02 FB 00296 CALLS #2, AED_SET_CURSOR : 
C1 AS 2008 8F AA 00298 28$:  BICW2 #8200, AED_C_FLAGS+1 : 1956 
10 A6 94 002A1 CLRB. —« TERM_CHAR + 1957 
50 01 D0 002A4 MOVL #1, RO : 1958 
04 002A7 RET ; 
50 D4 002A8 29$:  CLRL RO : 1960 
04 OO2AA RET F 


; Routine Size: 683 bytes, Routine Base: S$CODE$ + 0E38 


14 
AEDSMAIN 1-56 $1984 23:47:14 AX-11 Bliss-32 V4.0-742 
vou~000 ACT_UNDEL_CHR = insert deleted character 14-Sep-19 4 $9 :93:36 ACLEDT.SRCJAEDMAIN.83251 


3 1 8 1961 1 ZSBTTL ‘ACT_UNDEL_CHR = insert deleted character’ 

| 1962 1 ROUTINE ACT_ONDEL_CHR = 

; 1521 1965 1 

3 1 ¢ 1964 1 !44 

3 3 1965 1! 

: 1524 1298 1 ! FUNCTIONAL DESCRIPTION: 

; 1525 1967 1! 

3; 15 $ 1968 1! This routine retrieves the previously deleted character and inserts 
3 15 1969 1! it into the Line segment at the current cursor position. The 
3; 1528 1970 1! cursor position is unchanged. 

3; 1529 1971 1! 

3 15 1306 1 ! CALLING SEQUENCE: 

; 1531 1975 1! ACT_UNDEL_CHR () 

3 19 ¢ 1974 1! 

3: 15 1975 1. ! INPUT PARAMETERS: 

: 15 1976 1! none 

; 1535 1977 1! 

3 1336 1978 1°! IMPLICIT INPUTS: 

3; 1537 1979 1! OWN storage 

3; 1538 1980 1! 

; 1539 1981 1 ! OUTPUT PARAMETERS: 

3; 1940 186 1! none 

3 1541 1985 1! 

3 1386 1984 1 ! IMPLICIT OUTPUTS: 

3 154 1985 1! none 

3 1544 1986 1! 

3 1545 1987 1 ! ROUTINE VALUE: 

3: 1546 1988 1! 1 if successful 

3 1547 1989 1! error status otherwise 

3; 1548 1990 1! 

3 1549 1991 1 ! SIDE EFFECTS: 

: 1550 16 ie: The Line segment table is updated as necessary, ACE Line pointers 
3; 1551 1993 1! are updated, and the object's ACL is updated as necessary. 
; 1336 1994 1! 

3; 155 1995 1 !-- 

3 1554 1996 1 

; 1555 1997 2 BEGIN 

3; 1556 1998 

3; 1557 1999 AED_L_FLAGSCAED V_ACTIONKEY] = 0; 

: 1558 2000 IF [AED_B_DEL_CRAR EQL 0 

3; 1559 $003 THEN 

; 1560 O08 BEGIN 

3 1561 200 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 

; 136¢ 004 AED-L-FLAGSCAED_V_ACTIONKEY) = 0; 

3: 156 005 TERM_CHAR = 0; 

3: 1564 O06 RETURN 1; 

3; 1565 00 END; 

3: 1566 008 ; : : 
3 1200 st ! Jf the current ACE is marked as untouchable, no modificaticns are allowed. 
3 1269 011 IF .AED_L_FIRSTLINECLINE_V_NOTOUCH] 

3; 1570 ate THEN 

3; 1571 01 BEGIN 

: 1378 A 014 SIGNAL (AED$_NOMODIFY); 

3; 157 a2 AED _L_FLAGSERED_V_ GOL DREY) = 0; 

3: 1574 1 AED-L-FLAGSCAED-V_ACTIONKEY) = 0; 

3; 1575 01 TERM_CHAR = 0; 


<P 
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UNDEL_CHR = insert deleted character 


14 


RETURN 1; 
END; 


! Retrieve the deleted characte 
AED_L_FLAGSCAED_V_GOLDKEY] = 0; 


AED-L-FLAGSLAED_V-ACTIONKEY] = 
TERM _CHAR = .AED_B_DEL_CHAR; 
RETURN 1; 
END; 
54 00000000G 8F 
53 000000006 00 
5 0000" CF 
= & 20 
68 A2 
4F 
50 40 A2 
52 OA AO 04 
12 62 03 
? 
000000006 00 oe 
15 
63 02 
54 
00000000G 00 01 
0B 62 03 
7E 20 «Ad 
3 24 A 
6 0 
00000000* * 
A2 03 00 
04 
14 «OA ze 
01 =A 5008 F 
000° fr 
01 A2 200 8F 
0000" CF 6 A 


137 bytes, Routine Base: $CODE$ + 


14 
18-ce -1984 23:47:14 AX-11 Bliss-32 V4.0-742 
12-808=198e #9595356 EACLEDT SRO SAEDMAIN S21 

fr. 
0; 
! End of routine ACT_UNDEL_CHR 
001C 00000 ACT_UNDEL_CHR: 
-QORD Save R2,R3,R4 
DO 00002 MOVL #AEDS_NOMODIFY, R4 
9E 00009 MOVAB SCRS$SET CURSOR, R3 
9E 00010 MOVAB AED.L FCAGS, R 
BA 00015 BICB2 #327 AED L_FLAGS+2 
95 00019 TSTB) = AED_B_DEC_CHAR 
13 0001C BEQL $ 
D0 O00iE MOVL AED_L_FIRSTLINE, RO 
E1 0002 BBC #4,7~10(RO), 4$ 
E1 00027 BBC #3, AED_L_FLAGS, 1$ 
DD 00028 PUSHL #1 
DD 0002D PUSHL gt 
FB 000¢F CALLS #2, SCRSERASE_PAGE 
DD 000 PUSHL #1 
DD 00038 PUSHL gi 
FB OOO3A ALLS #2, SCRSSET_CURSOR 
DD 0003D 18 USHL R4 
FB 0003F CALLS #1, LIBSSIGNAL 
E1 00046 BBC * AED_L_FLAGS, 2$ 
9A 0004A MOVZBL AED_B_COLOMN, - 
9A 900% MOVZBL AED"B-LINE, -(SP) 
FB 0005 CALLS #2, SCRSSET_CURSOR 
b3 9005 2s: TSTL  #<AED$_NOMOBIF Y&7> 
13 00058 BEQL $ 
ED 9005 CMPZV #0, #3, AED_L_WORSTERR, #<AEDS_NOMODIF Y&7> 
d0 9069 MOVL R4, AED_L_WORSTERR 
AA $ 3$: BICW2 #8200, KED_L_FLAGS#1 
94 000 CLRB. ss TERM_CHAR 
11 0007 BRB 
AA 90079 4$: BICW2 #8200, AED_L_FLAGS+1 
90 0007F MOVB AED_B_DEL_CHAR, TERM_CHAR 
dO 90085 5$: MOVL #1,7RO 
4 000 RET 
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F 14 
AEDSMAIN 15-Sep-1984 23:47:14 AX-11 Bliss-32 v4.0-742 Pa 9 
vie ACT_UNDEL_WRD = insert deleted word 1a-8ep-19 4 $9333: 9 ACLEDT. SRC JAEDMAIN.832;1 18) 
3 1 1 ZSBTTL ‘ACT_UNDEL_WRD = insert deleted word’ 
; : Bs 6 : ROUTINE ACT_ONDEL_ORD = 
: 103) gyi” | 
; i 38 0 4 i FUNCTIONAL DESCRIPTION: | 
: 1595 0 § 1/ This routine retrieves the previously deleted word and inserts it | 
3 7 38 0 into the current Line —— starting at the current cursor position. 
3; 159 0 3 1! If a delete word was used previously, the cursor position is not 
3; 1598 0 1! changed. If a rubout word was used, the cursor is moved to the end 
3; 1599 40 1! in the retrieved word. 
; 1600 11! | 
3; 1601 ot] 1 ! CALLING SEQUENCE: 
3 1956 04 1! ACT_UNDEL_WRD () 
; 160 044 1! 
3; 1604 045 1! INPUT PARAMETERS: 
Bes Bf in 
> 1607 O48 1 | IMPLICIT INPUTS: 
3; 1608 049 1! OWN storage 
3; 1609 050 1! 
3; 1610 051 1 ! OUTPUT PARAMETERS: 
3 1611 052 1! none 
; 1eig 053 1! 
3; 161 054 1 =! IMPLICIT OUTPUTS: | 
fo ee ipeo 
> 1616 OF 4 i ROUTINE VALUE: | 
3: 1617 058 1! 1 if successful 
: 1013 B28 ; : error status otherwise 
> 1620 061 1! SIDE EFFECTS: 
3; 1621 4 1! The Line segment table is updated as necessary, ACE Line pointers 
; 16 ¢ 065 1! are updated, and the object's ACL is updated as necessary. 
: 16 064 1! | 
: 1835 oe 1 | 
; is 037 BEGIN 
: Hs : OF ! If the current ACE is marked as untouchable, no modifications are allowed. 
; 16 071 2 IF .AED_L_FIRSTLINECLINE_V_NOTOUCH] | 
3; 1631 Ore THEN 
3; 16 § 07 BEG! 
3: 163 074 SIGNAL (AED IFY); 
: 16 075 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
3; 1635 ore AED _L_FLAGSCAED_V_ACTIONKEY] = 0; 
; 16 07 TERA CHAR = 0; 
: 1 44 RETURN 3 
> 1639 080 : | 
3 1o79 O8e ! Retrieve the deleted word. 
: lose 0 CHSCOPY (.SEGMENT size - .BUFFER impen. 
3; 164 bas JNPUT_BUFFER -BUFFER_INDEX), 
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H 14 | 
AEDSMAIN 15-Sep-1984 23:47:14 AX-11 Bliss-32 V4.0-74 P 1 
v4.00 ACT_UNDEL_WRD = insert deleted word 12-808- 1986 $9 :93:35 ERCLEDT-SRe AEDMAIN.B $4 age 43) 
14 a9 000000006 Hi p0 2 MOVL § #AEDS_NOMODIFY, AED_L_WORSTERR ; 
OOTh BO BOOED <8, OL BUFFER. INDER, fe : 3088 | 
0088 £9 36 on ROVzyL ; GMENT_SIZE. RS F 
ce Te A 3am 
FESO C746 9E O88 MOVAB mien ait se a1 ; 
1 1 cE MNEGL 1, R1 : 
50 6 7 ‘ 088 ADDL3 7. R6, RO + 2088 
51 00 68 sees 965 C OO8F MOVCS R2, (RB), #0, R1, INPUT_BUFFERCROJ : 
48 64 «B9 3 2 $098 MOVC3 R7, @AED_Q _DEL_WORD+4, (RB) + 2091 
0088 C9 7 AO 00090 ADDW2 7, SEGMENT_SI : 09¢ 
04 AA 00B8 9 26 A O0A2 SUBW3 6, SEGMENT-SIZE, ECHO_DESC > 209 
08 AA 5 D6 BO0A MOVL RB, ECHO DESC+ + 2094 
03 01. Ad or E1 OOOAD BBC #1. AED C FLAGS+1, 5$ + 2095 
6A 7 0 90082 ADDL2 7. BUFFER_INDEX : %6 
18 «Ag 0088 C9 10 00 €D 00085 5$ CMPZV #0. #16, SEGMENT_SIZE, AED_L_PAGEWIDTH + 209 
0€ 19 000BD BLSS 6$ F 
7E 01 7D OO0BF MOV so #1, _ =( SP) + 2098 
7E 04 000C2 CLRL = = ( §P) : 
SA DD 00064 PUSHL R10 ; 
00006 CF 04 FB 000C6 CALLS #4, AED_SEGSPLIT : 
08 11 000CB BRB : 
04 AA 9F OOOCD 6$ PUSHAB ECHO_DESC > 2099 
00006 CF 01 FB 00000 CALLS #1, KED_PUTOUTPUT : 
20 ad 6A 01 81 00005 7$ ADDB3 #1. BUFFER_INDEX, AED_B_COLUMN : 3100 
7E 20 AY 9A OOODA MOVZBL AED_B_COLUAN, -(SP) 3 2101 
24 Ad 9A OOODE MOVZBL AEDTB-LINE, -(SP : 
00006 CF 02 FB 000E2 CALLS #2, AED_SET_CURSOR : 
60 Ad BS O00E? TSTW AED_Q_DEL_WORD + 2102 
8 13 OOOEA BEQL : 
69 80 8F 88 OO0EC B1S82 #128, AED_L_FLAGS : 3105 
01 a9 10 BA 000FO BICB2 #16, AED_C FLAGS+1 : 2106 
01 «Ad 2008 8F AA OOOF4 8$ BiCw2 #8260, AEDTL_FLAGS+1 : 3109 
2 AA 94 OOOFA CLRB TERM_CHAR : 2110 
50 01 00 000FD MOVL #1, RO > 2111 
04 00100 RET > 2113 


; Routine Size: 257 bytes, Routine Base: S$CODE$S + 116C 
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1b-§ -1 247:14 AX-11 Bliss-32 V4.0-742 Pa 2 | 
-UNDEL_LIN = insert deleted Line 12-885-198e 7:33:35 EACLEDT. SRE AEDMAIN.B32; 1 85 


ZSBTTL ‘ACT_UNDEL oy - insert deleted Line’ 
ROUTINE ACT_ONDEL_CIN = 


ee 


i 
FUNCTIONAL DESCRIPTION: 


geReEssecse 
w = SONIOUR 


! Retrieve the deleted Line. 


CHSCOPY (.SEGMENT SIZE - .BUFFER JNREX. 
JNPUT BUFFER -BUFFER_INDEX), 


3 3 11 1 

3 1 115 #1 

3 3 119 1 

3 7 117 «1 

s 1 11 7% 

ty 136 11 

: 1 121 1 This routine retrieves the previously deleted Line and inserts it 

3 1 1 ¢ 1! into the current Line segment starting at the current gurser position. 

3 3 1 1! If a delete Line was use previously, the cursor position is not 

3 1 1246 1! changed. If a rubout Line was used, the cursor is moved to the end 

g : : 5 } in the retrieved Line. 

:1 159 4 i CALLING SEQUENCE : 

3 1 1 1! ACT_UNDEL_LIN () 

3; 1689 1 1! 7 . 

; 1690 150 1 ! INPUT PARAMETERS: 

a ewe gpm 

; 1898 1 1 | IMPLICIT INPUTS: 

s 1098 ; : : OWN storage 

: 1696 136 1 | OUTPUT PARAMETERS: 

S| i iit 

; 1699 139 1! IMPLICIT OUTPUTS: } 
Ait te Bee be 

; 1708 148 1! ROUTINE VALUE: 

: 170 145 1! 1 if successful 

3 17M 17 : error status otherwise 

> 1706 146 i SIDE EFFECTS: 

3; 1707 147 1! The Line segment table is updated as necessary, ACE Line pointers 

; 1708 148 1! are updated, and the object's ACL is updated as necessary. 

: 1709 149 1! 

3; 1710 150 1 !-- 

WA SB occ 

: 171 15 

3 Hay} 138 ! If the current ACE is marked as untouchable, no modifications are allowed. 

: 1716 136 IF AED_L_FIRSTLINECLINE_V_NOTOUCH] 

; 1718 138 BEGIN | 
3; 171 15 SIGNAL (AED DIFY); 
3 1720 160 AED_L_FLAGSCAED_V_GOLDKEY) = 0; 
3; 1721 161 AED_L_FLAGSLAED_V_ACTIONKEY) = 0; 

3 1 § 196 TERA CHAR = 0; 
3 1 16 RETURN 1; | 
3 17246 164 END; 

3 : 5 109 

: 1 $ 189 

3 1 ; 168 

31 168 

3 1 170 
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3; Routine Size: 


ACT_UNDEL_LIN = 


insert deleted Line 
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Routine Base: 
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i 
Be 
25 Bu 
i 88 
AS 000 3 
DO OOOA 
E1 QOOAD 
co pes 
FB 0008 
9 00080 
7D OOOBF 
D4 000C2 
DD 000C4 
FB Q00C6 
11 Q00CB 
9F O00CD 
FB 00000 
gt 00005 

A QOODA 
9a 000D 
FB OOOE 
83 QO0E 
13 QOOEA 
HA QOOEC 
A 0O00FO 
AA 000F4 
94 OOOFA 
DO OOOFD 
04 00100 
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8$ 
BUFFER_INDEX, R 
SEGMENT _SIZE, R 


; 
INBUT -BUFFERCR6I,_ 


sstatarstnel,. a” 


R2, Rb, RO #0, R1, INPUT_BUFFERCROJ 


7, @AED_Q_DEL_LINE+4, (RB) 

7, SEGMENT_SIZE 

R6, SEGMENT SIZE, ECHO_DESC 

» ECHO_DESC+4 

» AED_C_FLAGS+1, 5$ 

» BUFFER_INDEX 

9. #16, SEGMENT_SIZE, AED_L_PAGEWIDTH 


-(SP) 

> ) 

#4, AED_SEGSPLIT 
18 


ESC 
AED PUTO 
UFFER INDEX, AED_B_ COLUMN 
B-COLUAN, (§P) 
AED “B-LINE 2p) 
AED_SET_CURSOR 
ne Q_DEL_LINE 


#128, hep L_FLAGS 
#16, AED_C_FLAGS+1 
#82 360" “AED “L_FLAGS+1 
TERM_CHAR 
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ZSBTTL ‘ACT_UNDEL_ACE = insert deleted ACE’ 
OUTINE ACT_ONDEL-ACE = 


2 Page 65 
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FUNCTIONAL DESCRIPTION: 


into the ACL before the first Line of the current AC 


CALLING SEQUENCE: 
ACT_UNDEL_ACE () 


INPUT PARAMETERS: 
none 


This routine retrieves the previously deleted ACE ang inserts it 


SRLIFSARGN SSE 


IMPLICIT INPUTS: 
OWN storage 


OUTPUT PARAMETERS: 
none 


POPUROTUPORORORONNOPoToTnonononofnonornonny 
MIMITININININININININININININININTN 


2 a 


IMPLICIT OUTPUTS: 
none 3 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 
are updated, and the object's ACL is updated as necessary. 


Cl te de ed ed et rr ee te tr ft? i? te te et 


LOCAL 
CURRENT_LINE : REF SBBLOCK; ! Address of current Line segment 


If, AED__DEL_ACECLINEL_FLINK3 EQLA AED_Q_DEL_ACECLINE_L_FLINKI 


0; 


AED_L_ YJ = 
AED_L_FLAGSLAED_V_ACTIONKEY) 0; 
HAR = 0; 


A 
_C_FLAGSCA 
OR .AED“L“FLAGSLA 
OR .AEDL~FLAGSLA 
THEN 


BEGIN 
FINISH_ACE (); 
IF .AED_L_FLAGSCAED_V_PROMPT) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
AND” .AED_C_FLAGSCAED_0_FIRSTCHARI 


PUNO OOVNOAUE WO OODNOAUES WN O OONOAUESWIN SO VOONOUSWN CO 


RIPIPINININININININININYININYNINIPIAIPNINININININININININININIPUNPNNYNY 
PUPP B BS BB EEE EE EWN nononononononofnn — 


RIPININIPIPINIPDPYPINININININIPYNININYAPINYIPPUNINIPINININININYNIPYNIPONY 


$ 
> 


C200 000000 
a et Det ears 
AAO 
WO ODONO 


WN —OODNAOULS WN" OVDONG 


v 


POPSPOPDPIPIAPIPINININOPINIPINIPINYNNIPINIPINIPINININIPONINIPYPIPINIPIPIPUPIPIPOPOPIPIPUPIPUNINIPUPUPUPUPONOPoNNyD 
WAPIPOPINIPOPINININIPINI PIPPI NPIPIPOPIPINIPIPONONUNIPYNININPININNY 


SpasagcgascenuseersrersRegeraanacseeseens 


SOSSOOOOO OOO OO -009000900000900 0000 NNN NNN WO 
PRowo mp SHH VA HAR CHG MOO AP ARNG POOR PUN OO ne 


WAIN. BB WII IOIIUINUININININUIIE BEE EERE EERE EEE EE EEE PWIA 
=] 


SasEceee 
Ss 


me a ta a a td ak tk td ot et ot = a 2 a = 2 2 a 


Be Se Se Ge Be Ge Se Fe Ge Se Ge Ge Fe Fe Ge Se Se Se Ge Ge Se Ge Fe Se Ge Ge Se Ge GF Se Ge Ss Se Ge Se Gs Ge Se Se Ge Se Ge Se Ss Fe Ss Se Se Se Se Se Se Se Ge Se Sees 


WAWWA.AWAAWA 


oo 
~“ 
—O Oe 


~ 


14 
1Sese -1984 23:47:14 
ACT_UNDEL_ACE = insert deleted ACE 12-805-1 984 $7 :93:36 
THEN 
> BEGIN 
NEW TEXT LINECLINE_V_DUMMY] = 1; 
AED-W.TOTALSIZE = 0; 
AED_L_FLAGSCAED_V_INSERTEXT] = 0; 
Hei eon reey thie” . NEW_TEXT_LINECLINE_L_FLINK] 
= e P 
aC Oratas hes UPDATEALL (ap W TOTALSIZE) 
= ° Py 
IF ROT .AED_L_STATOS wees 
THEN 
EGIN 
ED_L_FLAGSCAED_V_ACERROR] = 1; 
AED-POSITION (.AED_L_FIRSTLINES; 
AED-COPSEGMENT (.AED - FIRSTLINE); 
GUE (AED_T_CURLINECCINE_L FLINKI, 
-AED_C_FIRSTLINECLINE_L_BLINK]); 
IF .AED_L_LASTCINE EQL .AED_L-FIRSTLINE 
THEN AEB_C _LASTLINE = AED_T-CORLINE; 
IF .AED_C_BEGINLINE EQL .AED_L FIRSTLINE 
THEN AEB_C_BEGINLINE = AED_T-CORLINE; 
AED_L_FIRSTLINE = AED_T_CURLINE; 
AED RSTLINE NEQ™.AED_L_LASTLINE 
D ~AED _C_ELAGSEAED_V_ENDACC 
HEN AED-L-FLAGSCAED-V-ENDACLJ = 0; 
BUFFER IRDEX . 9; 
AED-SET_CURSOR (.AED 8 LINE, .AED_B_COLUMN); 
AED-L_FCAGSCAED_V_GOLDREY) = 0; 
AED-L-FLAGSCAED-V-ACTIONKEY) = 0; 
TERM _CHAR = 0; 


ocr 1; 
AED _L_FLAGSCAED_V_MODIFIEDJ = AED_L_FLAGSCAED_V_INSERT] = 0; 


AED_W_TOTALSIZE = 0: 
AED-L-LASTLINE = .AED_L_FIRSTLINECLINE_L_BLINK); 


AED“L-FIRSTLINE = 0; 
REMOVED_LINE = .AED.Q_DEL_ACE LINE L_FLINK3; 
CURRENT LINE = -AED-O7 DEL CACECLINE LPL INK]: 


> FLINKI; 
UNTIL .CURRENT_LINE EGLA REDO DEL-ACECLINE L_FLINK) 
BEGIN 
AED_L_STATUS = ALLOCATE (.CURRENT_LI 
W_TEXT-LIN 
IF NOT .AED_L_STATUS 
THEN 


BEGIN 
SIGNAL (.AED_L_STATUS);: 
RETURN .AED_C_STATUS; 


ND; 
CHSMOVE (.CURRENT_LINECLINE W SIZE] + SBYTEOFFSET (LINE_T_TEXT), 
T » »NEQ_TEXT : 


AED 
AED_L_LASTLINE = .NEW_TEXT_LINE; 


NECLINE SIZE] + SBYTEOFFSET (LINE_T_TEXT), 


. CURREN LINE ti INE) 
INSQUE (NEW_TEXT_CINECCINE L-FLINRJ, AEO_L_LASTLINECLINE L_FLINK]); 
L_FIRSTLINE EQL 0 THEN AED_L_FIRSTCINE = .NEW_TERT_LINE; 


AX-11 Oi lege ae V4.0-742 
SRC JAEDMAIN.B32;1 
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15 
AEDSMAIN 1$-5e =1984 23:47:14 AX-11_ Bliss-32 V4.0-742 P 9 
vOe~000 ACT_UNDEL_ACE = insert deleted ACE 1ar8eei13ke 17:83:29 EARLEpr’sneSacomaincasoet age 42) 
93 12 06 BNEQ = 4$ ; 
7A A 0 6 MOVL @NEW_TEXT_LINE, NEW_TEXT_LINE : 62 
00006 09 re 065 4$: CALLS #0, RED COMPRESS : 226 
: 0284 C 0006A MOVZWL Ab TOTALSIZE, =(SP) 3 2264 
00006 CF 1 F OO6F CALLS #1, AED_UPDATEACL ; 
4c AQ 0 D 0 4 MOVL RO, AED“L STATUS ; | 
47 4c AD ; 0078 BLBS  AED_L_STATUS, 8$ 3 2265 
co Ad 40 BF gore BISB2 #64; RED_L FLAGS : 2268 
89 DD 00081 PUSHL acd FIRSTLINE 3 2269 
00006 CF 1 FB 00083 CALLS AED_POSITION ; 
69 DD 00088 PUSHL AED_L_FIRSTLINE : 2270' 
00006 4 01 FB BoeA CALLS #1, AED_COPSEGMENT : 
0 69 D 8F MOVL AEO_L_FIRSTLINE, RO : 2272. 
04 80 70 Ag OF 009¢ INSQUE AED T-CURLINE, 4(RO : | 
69 06 Ad D 009 CMPL  AEDILLASTLINE, AED_L_FIRSTLINE > 2273 
5 12 00098 BNEQ  5$ ; | 
04 ag 70 a9 9E 0009D MOVAB AED_T_CURLINE, AED _L_LASTLINE ; 2274) 
69 08 A9 D1 OO0A2 5S: CMPL AED-L_BEGINLINE, AED-L_FIRSTLINE : 2275 
05 12 000A6 BNEG  6$ : | 
08 a9 70 AY YE 000A8 MOVAB AED_T_CURLINE, AED_L_BEGINLINE : 3376 | 
69 70 A9 99E OOOAD 68: MOVAB AEDTICURLINE, AED-L-FIRSTLINE 77 
04 Ag 69 01 00081 CMPL AED-LFIRSTLINE, AEDIL_L%S{LiNE ; 2278 | 
09 13 00085 BEQL «=s7$ ; 
04 co Ad 05 €1 00087 BBC #5, AED_L_FLAGS, 7$ > 2279. 
co Ad 20 8A 0008 BICB2 #32, AED_C_FLAGS ; 2280 
0205 31 000C0 7$: BRW 38$ : 3281 
co Ad 2080 8F AA OO0CS 8S: BICW2 #8320, AED_L_FLAGS > 2289 | 
0284 C9 B4 000C9 9S: CLR¥  AED_W_TOTACSIZE : 2291 
50 69 00 000CD MOVL § AEDTLIFIRSTLINE, RO > 2292 | 
04 Ag 04 AO 00 000D0 MOVL 4(RO)> AED_L_LASTLINE : 
69 D4 B2002 CLRL AED_L_FIRSTLINE : 2293 
FB AA 10 A9 DO 00007 MOVL AED_Q"DEL_ACE, REMOVED_LINE ; 3238 | 
56 10 a9 DO 000DC MOVL  AEDTQ"DELTACE, CURRENT_LINE > 2295. 
50 10 A9 9E O00EO 10$:  MOVAB AED-Q~DEL-ACE. RO > 2296 | 
50 56 D1 OO0E4 CMPL CURRERT_LINE, RO ; 
03 12 Q00E7 BNEG 11$ ; 
009E 31 O00E9 BRW 19$ : | 
SA bp QOOEC 11$:  PUSHL R10 : 2300. 
57 08 A6 3C O00E MOVZWL 8(CURRENT_LINE), R7 : | 
57 14 CO OOOF ADDL2 #20, R7 ; | 
04 AE 57 dO OO0F MOVL R7, 4(SP) : 
04 AE 9F O00F9 PUSHAB 4(SP) : | 
000000006 00 02 FB OOOFC CALLS 2, LIBSGET_VM 
58 é 4 B19) MOVL RO, VM_STATO : 
07 ; 1 BLBC_  VM-STATUS, 12$ 
57 00 bE i 00 C 90109 MOVCS #07 (SP), #0, R7, @NEW_TEXT_LINE : 
4C = A9 8 4 0110 12$: MOVL VM_STATUS, AED L STATUS 3 
4E 4C AD «EB 00114 BLBS AED sTAfuUS, T78 ; 2301 | 
1 0D 0011D PUSHL #1 ; | 
15 DD Oot PUSHL #21 ; 
000000006 00 02 FB 00121 CALLS #2, SCRSERASE_PAGE ; 
01 DD 00128 PUSHL # ; 
15 DD OO12A PUSHL aol ; 
68 02 rp 4 C CALLS #2, SCRSSET_CURSOR : 
4C AS DD OO12F 13$:  PUSHL AED_L_STATUS ; 
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; Routine Size: 745 bytes, 


50 


EO Ad 
0000G CF 

C1 
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Routine Base: 


15 
82 -1984 23:47: AX-11 Bliss-32 V4.0-742 Page 72 
12-808- 1382 99395336 PACLEDT SRE AEDMAIN.B32; 1 9 14) 
FO 49 9 BB MOVAB AED_Q_LINETABLE, RO ; 
: BF CMPL = R33, "RO : 
4 ce BEQL = 3 $ : 
4% C 378: AOBLEQ # , 36$ : 3373 
EB AA ps C8 38$. cLRL BUFFER INDEX + 2386 
01 90 00e¢B MOV #1, AEBD_B_COLUMN ; 3387 
£0 AD 9A 0 CF MOVZBL AED_8 COLUMN, -(SP) + 2388 
£4 AD OA D3 MOVZBL AED-B“LINE, <(SP) : 
02 FB 0020 CALLS #2, AED_SEf_CURSOR : 
2008 8F AA 0020C 39$ BICW2 #8200, KED_C_FLAGS+1 : 2390 
10 AA 94 002E2 CLRB_ —s TERM_CHAR + 2391 
01 bd O02E> MOVL #1, + 2392 
4 00268 RET + 2394 


SCODES + 136E 


15 
ACT_MOVE_WRD = move to word boundary 18-Sep-1984 $7:93:35 PANE 


a2 
: 


; 1957 95 1 ZSBTTL ‘ACT_MOVE_WRD = move to word boundary’ 

: 1388 9¢ 1 ROUTINE ACT_AOVE ORD = . 

3; 19 1 

: 1960 1 tee 

: 1961 1! 

3 1398 Z : : FUNCTIONAL DESCRIPTION: 

3; 1964 6 § 1! This routine goes to the next word boundary (first non-alphanumeric 
3 1202 : : } character) in either the forward or backward direction. 
3 1969 405 1 ! CALLING SEQUENCE: 

3 1208 4 , 3 ACT_MOVE_WRD () 

3 138 4 1! 

: 1970 408 1 ! INPUT PARAMETERS: 

3; 1971 4 1! none 

; Mb 4 410 1! 

3; 197 411 1°! IMPLICIT INPUTS: 

3; 1976 tig 1} OWN storage 

3; 1975 41 1! 

3; 1976 414 1 ! OUTPUT PARAMETERS: 

3; 1977 415 1! none 

3; 1978 ois 1! 

3; 1979 41 1 ! IMPLICIT OUTPUTS: 

: 1980 418 1! none 

; 1981 419 1! 

3 1OS6 420 1 ! ROUTINE VALUE: 

3; 198 421 1! 1 if successful 

3: 1984 4 ; 1! error status otherwise 

3; 1985 4 1! 

3: 1986 424 1 ! SIDE EFFECTS: 

3; 1987 425 1! The Line segment table is updated as necessary, ACE Line pointers 
3 + ? g : are updated, and the object's ACL is updated as necessary. 
3; 1990 428 1 !-- 

3; 1991 429 1 

; 1338 430 BEGIN 

; 199 431 

3 1994 4 § IF NOT .AED_L_FLAGSCAED_V_BACKWARD) 

: 1995 4 THEN 

3 Hb a 434 BEGIN 

3; 199 435 If .BUFFER_INDEX GEQ .SEGMENT_SIZE 

; 1998 4 THEN 

3; 1999 4 4 BE 

: 4 3 4 PEL FLAGSEAED v.60. DKEY) = 0; 

; 1 439 4 AED-L“FLAGSCAED-V-ACTIONKEY) = 0; 

: O08 440 4 TERA_CHAR = 0; 

3; 200 441 & RETURN 1; 

3; 2004 442 3 END; 

3 2005 443 4 WHILE (.BUFFER_CHAR GEQ ‘A’ AND .BUFFER_CHAR LEQ 3. 
3 444 & OR (.BUFFER_CHAR GEQ ‘O° AND .BUFFER_CHAR LEQ '9") 
; et 445 3 dO 

3 44 4 BEGIN 

3; 2009 447 & BUFFER_INDEX = .BUFFER_INDEX + 

3; 2010 448 4 IF .BUFFER_INDEX GEQ .SEGMENT_SIZE 

: 11 449 & THEN 

: ¢ 450 2 BEGIN 

: 1 451 BUFFER_INDEX = .BUFFER_INDEX = 1; 


$ 
> 
2 


15 
B-Sen~1984 $3: 45 i pragh Bliss-32 V4.0-742 


1 
ACT_MOVE_WRD = move to word boundary 1 ACLEDT.SRCJAEDMAIN.B32;1 


; 2014 4 ¢ 5 EXITLOOP; 

; Bt? 4 4 END; 

; 1 454 END; 

; 201 455 END 

; 818 4 § ELSE 

: 1 4 BEGIN 

: 2020 458 BUFFER_INDEX = .BUFFER_INDEX = 2; 

3; 2021 459 IF -BUFFER_INDEX GEQ 0 

; 20 ¢ 460 THEN 

3; 20 461 4 BEGIN 

3; 2024 46 2 WHILE (.BUFFER_CHAR GEQ ‘A* AND .BUFFER_CHAR LEQ $03 
3 8 5 ret ? 00 OR (.BUFFER_CHAR GEQ ‘0° AND .BUFFER_CHAR LEQ °9°) 
3 $ 465 BEGIN 

3: 2028 reg BUFFER_INDEX = .BUFFER_INDEX = 1; 

3; 2029 46 IF -BUFFER_ INDEX LSS 0 THEN EXITLOOP; 

; 20 468 4 END; 

: Bes 469 4 END 

; 20 ¢ 470 ELSE BUFFER_INDEX = =-1; 

3; 203 471 ND; 

3 2034 47 BUFFER_INDEX = .BUFFER_INDEX + 1; ! First char of word 
; 2035 47 AED_B COLUMN = -BUFFER_INDEX + 1; 

8 O38 474 AED_SET CURSOR (.AED_B LINE, .AE_B_ COLUMN) ; 

; 203 475 AED_L_FCAGS AED_V_GOLDREY) = 0; 

3; 2038 47 AED _L_FLAGSCAED_V_ACTIONKEY]) = 0; 

3; 2039 47 TERM _CHAR = 0; 

3; 2040 478 RETURN 1; 

3 2041 479 

3 2042 480 1 END; ! End of routine ACT_MOVE_WRD 


0004 00000 ACT_MOVE_wRD: 
WORD 


Save R2 
52 0000' CF 9€ 0000 MOVAB BUFFER_INDEX, R2 
38 0000" CF €E8 0000 BLBS  AED_L_FLAGS+{, 4$ 
62 0000" CF 10 90 ED 0000 CMPZV #0, #16, SEGMENT_SIZE, BUFFER_INDEX 
15 0001 SLEQ )~3=—s«108 
50 0000" CF 9€ 00015 1$: MOVAB INPUT_BUFFER, RO 
50 00 B240 9A OO01A MOVZBL @BUFFER_INDEXCROJ, RO 
41 BF 50 91 OO01F CMPB ss RO, #65 
06 1F 000 3 BLSSU 
SA oF D $1 000 CMPB. sO, #90 
OA 1B 00029 BLEQU 3$ 
30 0 91 00028 28: CMPBsaRO, #48 
44 1F 000 BLSSU -9$ 
39 30 91 000 CMPBs«aRO, «#57 
F 1A 000 BGTRU 9 
3 D6 90 3$: INCL  BUFFER_INDEX 
62 0000' CF 10 0 FD 0 CMP27V #0, #18, SEGMENT_SIZE, BUFFER_INDEX 
DS 14 00 BGTR 
07 i DECL FFER_INDEX 
1 0004 BRB 
62 3 c 044 4$: SUBL? #2, BUFFER_INDEX 
0047 BLSS «BS. 


mM hr 
rr Ww 
Ww oO 
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DSMAIN 14.82 =1984 23:47:14 AX-11 Bliss-32 V4.0-742 Page 75 
voe-000 ACT_MOVE_WRD = move to word boundary 12730071984 $7 :93:36 ACLEDTS SRC tha AEDMAIN.B32;1 9°45) 
1 0 00049 V BUFFER INDEX, R1 y : 2462 
3) oooo' cro BR 4C 5$: MOVIBL INPUT BUFFERERIJ, RO : ’ 
41 BF 0 1 CHP RO, #6 : 
SA OB b 91 5 CHP RO, #90 : | 
30 0 38 68: CMPBSséRO, «#48 t 2463 
11 1F 0006 BLSSU : 
39 50 91 0006 CMPB Rd. #57 : 
Oc 1A 66 BGTRU 9 : 
62 07 00068 7$: DECL § BUFFER_INDEX + 26 
51 6 0? ben MOVL BUFFER. NDEX, R1 3: 2467 
Dp BGEO ; 
0 11 O06 BRB 9$ : 
62 1 CE 0 1 8$ MNEGL #1, BUFFER_INDEX + 2670 
62 06 00074 9$ INCL BUFFER INDEX + 247 
0000" CF 2 01 81 00076 ADDB3 BUFFER_INDEX, AED_8_COLUMN + 347 
E 0000' CF 9a 0007C MOVZBL Ab. “COLUMN, -(SP) : 2474 
7E 0000" CF 9A 00081 VZBL AED"B“LINE, -(SP) ; 
00006 CF Ge FB 00086 CALL AED_SEf_CURSOR : 
0000° (CF 2008 =««BF AA 0088 10$:  BICW2 #8200 RED C_FLAGS+1 + 24676 
28 A 009 LRB R Oewa + 2477 
50 01 06 009 MOVL » RO : 2478 
0098 RET + 2480 


; Routine Size: 153 bytes, Routine Base: S$CODE$ + 1657 
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a 
33 
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ROUTINE VALUE: 
1 if successful , 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as mecessary, ACE Line pointers 


are updated, and the object's ACL is updated as necessary. 


4 481 ZSBTTL. ‘ACT_MOVE_ACE = move to ACE boundary’ 
5 che ROUTINE ACT_MOVE_ACE = 
4 
5 4 'o¢ 
: 485 : 
ed ? FUNCTIONAL DESCRIPTION: 
051 4 $ This routine advances or backs up over an ACE depending on the 
: ¢ rt state of the BACKWARD flag. 
054 491 ' CALLING SEQUENCE: 
; é 3 } ACT_MOVE_ACE () 
05 494 ' INPUT PARAMETERS: 
058 495 ! none 
059 4 ! 
060 49 ! IMPLICIT INPUTS: 
061 498 : OWN storage 
4 499 ' 
06 500 ! OUTPUT PARAMETERS: 
064 01 ! none 
065 8 ! 
066 0 ' IMPLICIT OUTPUTS: 
067 04 ! none P 
068 05 
i 
! 
' 
' 
i 
i 
i 
' 


Peal aL Ah AL Ah Ab Ab Ab Ab ab ab db db cb bbb dh db dh ih dh bh bbb bb Ab dh Ab Ab Ab Ab sh ah al 
CNAME WN OOONOUES WN —O0@ 


0 
; 0 
1 
1 
251 
1 
1 
1 
081 : 1 NEW_TEXT LINE = AED_REPSEGMENT (); 
08¢ 1 IF TAED_C_FLAGSCAED-V_MODIF IED) 
08 OR .AED“L-FLAGSCAED-V—INSERT 
084 OR .AED~L-FLAGSCAED-V~INSERTEXT) 
085 THEN 
086 BEGIN 
0 FINISH_ACE (); 
0 IF .AED_L_FLAGSCAED_V_PROMPT) 
089 AND .AED_C_FLAGSCAED_0_FIRSTCHAR) 
090 THEN 
091 BEGIN 
09¢ 9 NEW_TEXT_LINECLINE V_DUMMY) = 1; 
0 0 AED“W_TOTALSIZE = 0; 
095 : AED_L_FLAGSCAED_V_INSERTEXT) = 0; 
096 3 IF [AED W TOTALSIZE EQL 0 THEN NEW_TEXT_LINE = .NEW_TEXT_LINECLINE_L_FLINK); 
09 4 AED_COMPRESS (); 
098 : AED“L_STATUS = AED_UPDATEACL (.AED_W_TOTALSIZE); 


WUnUw 


IF ROT .AED_L_STATOS 
THEN - 


; 9 
: 2070 
: 2071 
; O76 
: 207 
: 20 


832;1 


AX-11 Oh fase ze vV4.0-742 
ACLEDT.SRCJAEDMAIN 


. 

a 

c 

- 

— 

c— 

= 

av 

c 
ae core 
>w = or 
se oe we 
oOo ~ x 
a — 
" >] ne 
ro we ‘6 
-—-~N a] rT » Te 
oo a | 7) te 
nw i. 4 Me ° pyulvy) 
ww w 2 ow ee 22 
7 ef “” -_— " Zw —— 
PA 2 = od =u ad anf 
Ne _ wow z = a) 

. q ee 8 — < www 
wv ~~ > 7 al aw oe 22a 
ooo z a = (Ut = vo ee 
on = a zw we [ YY) a | 
-—— *. w w —2 Oo am ca 
te ~w 2 w af < ae om tt — P— ] 
aa rz = z oO ww mJ mo ww 

wee ae Jee vw ” w a aéw «Ut se : | 
wn a ee | t oO sw =] Zea Co Fre 
i) mr wYe — +e @ < w c rs 2 ot kh 
wwe *—wMIYZae YY CO 1 | wa ry) ome u-nCoo- 
cme -Z2Oae5 « oa +. - z2< a - 20 J <ww 
we Lea eel) ll w © ‘ tt a -lie by muwect + 
at Ow 1 Zee =) —us ee © aI ii Hoa w 
—ueww 8 aVe2 rw Ol q wee iu. we Nese 
2 tw § ee LW oa we °o ~N Woe Mm Yeh A 
tier § Or IJOVU ue w Z2aites & mS JI Zz it rmww 
a OFrw Kwai w > ot toe] ~~ A Kw emo Aa warma 4s 
reaewiw mo7{[too anew a ~Omrmw a <x wictct = —wrtwow 
Sve ZO wy +22 — > a " « Ke tec om we 2445 Oo —wre— I 
O@unrw ww << @ ww aw2 <x YQL0- ol Re—2ew & OuwvuZzo | 
Qe we «4. eo ti aco to] =z qwtn + ww Qwiezs ' a 252—-wo 
Gute OW tw>> @aa- a » +#<aoar- o@ <« wus ig *+ Mwoctst 
wt ~Gtiw az it we ww ve '‘2n “7 o “Mowat > o>mw A. ws 
Vei4sazew cape aa aocw — < sofwa =z 2w2e—ww t i) + hw 
~ <= we wwe wod “ @ ws .- w SM NEZ CO naa3<c ~ 
i eaqdwawaese 2a =< ete -_ i ao>u ‘ tic = ww Ls JAM 
ee Sed tt 8) i th cece o> > a > ww tiw > oco> alma od oo wtwovdr- 
ao) t~See IZ .MOrw~ 1 1 oOo a < aw <« i oer | Su WOW Aw Mnwn> 
Qe Y he Zeer VOU aad = a usw 6 a Quww tw Ww Mu OOf8. 
we br MO OZYMA EN OUI +e f w 2<a @o w Hhws tZzZzuo — OKs Se 
=< 2 142 0Owres i o<dc<to > 4 tieww ££ << t—— Fe wtVVUOwW 
YV2w Od YW Jew KZ ‘ ws “aM s&s ww KZ DOjjw Vo jWMwW 
MOZaowW © eu i wWwEaCwwi a ” wr e ” WwEw JOWrR vu uw Jw 
w OeOwd"d tu tM LWIJO 2D DVYU w oo zd 9 a xtUdcdwaituw<d 1 ' woow 
Vv ewe -.) ts Ew § SiijVwdae - <« < Se ee o<« 2ja—<4 eee 201 1 
4 aw ©& © Beo-0O tiuoide ww a el 4 ad —OJ0~ == | = | | OOM 1 
uo awowr.oww leruwu Tt ” ve eu Oo DvD uw =) weuevoa voooartrteca 
o oo witwet tudo tu i Zz YO a Y tLe C t mm 66 Gy (6 Oy Wiiwwowuw 
~~ 2ij0aAvW <= <«€ wf * WOW & <« —) enw &- &© 4 ZwOwssd jH4< Occ euw 4s 
-— 6£t = “2 2 te Bu tt tt ED ee o -— oO (mm 8 6 (t+ tz 
e® YVanaoM we WO OusuOOooodcre du a uwQwwn e® 2 OU4800M aan ww 
> Wwwwe wtu tue SroOwwwwws w weo £c WwW WDWwwwet Wwe Tt 
2 Ce ee) eee ek See] -O<<<erew < =-~<,%, at 4, Se<<<~ Cae a a 
se 7 — . ° 
aa oa wWwOa & w 
t we —-& wWweta © wt 
qw 4 Ot Coleed 
w z ee 
YU w ad 
< w= 
t ae _— 
w 
S SPP PPS SSFP FGF iF FS SSS NOC TTT TT I 
8 DOOM OMMTNDOR. DHODK— MUM TMOR. DOO KUM TMOR. DHOOM MUM TNOR. DOO CUMIN ODOO-wM as 
- PRS oF Sd ood oo TRA AUALAR ADO DOD OOD OO RI ee m0 0IS EDI OD SDS DOO 
4 LVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVULVLVLVELVLVLULVULV LVL ELV LVL VELL ELVES ALY ELV LYELL LVL ALY ELV ELEVEN ELV ELV EEN ALND 
NOOO OCONEE ONIONS 


=< TH ORPNT UN DOOM MUM TMNOR. DOO MUM TN OR. DHOOM AT MNOR. DOO MUMTN OR. DOO CUM TN OF. 
=5 BOOBS eee RNA UarueSU IA ARRIAA oe ob oo oo oF oo Foe oF PIRI 
Ce C OO OO OC OO OOO OO OOOO OOO OOO OO RO OOO OOO OOO OO OO OC OOO Oe | eh ae ce ce ee ec cl 


on 
~o 
_ 
od 
t ¥) } 
oa | 
@ | 
a } 
| 
| | 
| 
- u 
Nee 
zu 
mr 
\— 
*z 
wTe es 
> w 
= ate 
Na mu 
mu bed =r 4 
‘< oe] cn w 
or w a | o 
nu ™N os va << 
aad * Land an oOo q 
al ” w —-o w 
@- 8 Nn ae > 
a za _ ar oO 
-a ' . ~ w t = 
—w w tn] a za i 
‘J za pa 3 w os 
«KYU “4 2 a uc vw 
<< — “ y <= 
>u uw I wi 
“.o w @ _ za CY 
“= t — mu c 
x -_ ad oo td wz n= 
| t ion ee ze ~ 
TO +s — w ~~ 2 — Ss 
-N A J oe z ze oF o 
——— ume _ — ad wn . 
nw *. au =i —J toh aoc 
rw 6+ tusee sz bad onmw ws - 
oo 2m ee ed w aca a 0 °o 
me w eae) ws tm 2 oa2—4 ws 
Ne ~ —™ 2u0 ww _ mae Qa | wo 
_ en“ — ms wv —J*s wa ft wo -s c 
4 wn 2M —+Jj<t << oO 2o0. uy mee ws 
t ~ 6 ss te 2 ww — 8 <= wm 
oo i J wus om cn widsoa z Nw - 
-—- 2 -_ 6 222+ @ i zu ays we ww oy 
e ws -~ tw tt 4 uw Wu tw wet ~ 
aa ££ moz ee ee) i) sIZz « -= i- 4 - 
Wee O-+s ue aerus a 3 bt - 3—- 
NN we 2a 2Mwe Ww te OII+ cou [+ <) + 
i eee a) me jw vwezwy 2 own erw aZw w ft 
Po Tal 4d + emt JN we w2eu —Musus mes 2A me 
ome -2@ 2a - wet <q—-wU a 2 4 pS ee ee ee | w 
vad wer tO wee Jj | om lemehemnd ze oa 
uu 2ajje jis Qa so w we ae IY? mee WZ 2 
za —. bru wodcte 2 ue teu Mm IeW we _ 
“Zz + wim t twa t - zo oauMe -2ea-a 2. . 2 
ae - I2-a> <« coc. wes w xe collet Beet eer =O a 
i) Wy we 1 Cen t z@ a£oe0O “2 &wWWJwW [vu] 
oa ts ave per dress) ad o “re 6 sir Ue 8 EES soll (ve 
qw —2. & ouow «a a> Zeit!) 2 & LIMO _ 
ou wes Le w wet -—-a 1 <eensBsBb eeriszo wei — => oO 
we weg tu wee uw Mm a (+ ww WO ie @-s 
<z2> ier Ot waz. gy eu on1oa KF aewidwouww x Oo tl 
°@ tw JOww 2-7 led — w Ws Mest ew Ew 
~e aZzewaiZz a i uJ wet 2a © te one 
~ WE omy ——- w a2 ' ow wee ke om te Oe ho > 
~~ wh <i ad —MuwmN ww Ow 2-4 BRIS ce ew mw 
sz xh he Mest sore wa J (wywoowJaM oneal 
.- | ~~. ” que re ad ate oz jAQaZz-—- wwe e&2Zz sw 
§ J 2S wwe + ww w Zeus weemw << Ou aco 
—- Wenn weet wn <= - =—OZ™N Adtdiazw w te aoa- 
Ss wo ze ie 1 — sr uw Ouse sme ZS lt > cece we 
“oOo w 0.1 2a<oO wx u“ <= wow qv5su- * itor aow 
vw Que. 1 owe wow Wwe @ - _ VY B2owww Aaa wodt 
w a wivetoa wet tt «<a ww wt we Ler SNH Oe 8 
~~ wo wet -eew 2a 8B eZ z= | + =e Ze OH ae >> 
<= A tee Mw BROOD = *Z § tee D-O ww ea-0 zy ewd JMU ~ te 
za s ue? ODO WORRY kw abel 4 aQwur aL ee oe Pty aa 
Oo ww w ‘¢ wueTuwe x 3 -—-<2a wet tt = Owe § eOOCS Gus se 
~~ Weiw Zend 2434 Ore iw® Oerw Ze IB K-we op 1 oe fe o<z<o 
-— i Go fro ZOmq ws eZ 6 teow (OFT 0O Mit 
@ 4 vaMW ear aunad ae = YO wacnaw:a eakwrVuk BH AWw ii 
> wwe wwZzoO wavs ‘6 Wwetww2zoow ww tiitme ts Oovuv 
2 w Ode 2aro <qOaw 2434 OFrAawavd <<I34jjIWm eS ed 
ivy) — | ‘eo © §£ 60 6 Ow tee Ce 
” a vaar- aaMa 200004. 00ruut 
a | =z wwwZzo Wwe BehWowe § ROS 
uw w @Oaaetra aa oe eee Oewd & 
(vy) w ‘t: &o . 
7 ” acnaace 6 
<7 — Www 
nal w <«q<aaeaQ ow 
S LVL FO FFF FFF FLL viv F FF FOO SF FF FT IEEE OUI 
t Ne 4 OTR Ae OA oe 6 pena bp gta et NAT A OF Nt et TEND A LAN tt oy Me ae te ba er ety 
- COCO oO RR Pt Pe a GD wet et et tet tet ett te fe & & ee 8 eR 
¥ MMMINOOOODOODOOOOOOOOOOODOOOOOOODODOOOOOOOOOOOOOOOODO oO oO oOo 
PIRI OIC CII OIE 


FS RASSVISSSSSSLCLCL LN LL Sa IaSSSSSSSSSTSSESSSSENAELSSASOK NLS 


LO mcucueucucy 


Oe ee ee eee ee ee eee 


08 


oc 


04 


ACT_MOVE_ACE = move to ACE boundary 


2080 


8F 


ONPOOCMOOS YS POP POF FPOOCOSOPrPUNCCoOWon 
TW SOOM OWINININ NUNN WOW WO fF VIW 


oO 
oo 


Fond 


owr> 
o°o ovINMw™n 


9E 0000C 
9E 0011 
F oni6 
3 018 
0001F 
19 00022 
EO 00024 
5° 0029 
1 QO02E 
FB 00031 
95 00036 
18 00039 
Ei 00038 
DO 00040 
88 00044 
z 00048 
A Babes 
B5 00051 
12 00055 
DO 00057 
FB 0005C 
3C 00061 
FB 00066 
DO 00068 
E8 OO06F 
88 00073 
DD 00078 
FB QOO7A 
DD 0007D 
FB Q007F 
dO oee 
OE 0008 
D1 8A 
12 8 
5 13s 
12 
9E 
‘ 
13 
+} 
A 
D4 
90 
3A 
1 
AA 


COOOOCoOOoOoOoOOoOoOoOoOoOooOooooooooooooooe 


SSSeSesceesesann 
> OolfoO 


18: 


28: 


3$: 


oa 
Aad 


~N 
Sad 


r $3790:18 wel Bliss-32 V4. 


-742 
CLEDT.SRC JAEDMAIN.B32;1 


Save R2,R3,R4,R5,R6 
AED_COPSEGMENT, R6 
AED-POSITION, RS 
BUFFER_INDEX, R& 
AED_L_FIRSTLINE, R3 
#0, ~AED_REPSEGMENT 

RO, NEW-TEXT_LINE 

AED _L_FCAGS 

#5, AED_L_FLAGS+1, 1$ 
#6, AED“L-FLAGS+1, 1$ 
#0, FINISH_ACE 
AED_L_FLAGS+1 


#4, AED_L_FLAGS+1, 2$ 
NEW.T XT_CINE, RO 


R 
AED_W_TOTALSIZE 
#64, RED_L_FLAGS+1 
AED. W_TOTACSIZE 


@NEW TEXT LINE, NEW _TEXT_LINE 
#0, AED COMPRESS 
— 


“CURLINE, @4(RO) 
LASTLINE, AED_L_FIRSTLINE 


LINE, AED _L_LASTLINE 
INLINE, AEDIL_FIRSTLINE 


UR 
EG 
URLINE, AED_L_BEGINLINE 
URLINE, AED"L~FIRSTLINE 
IRSTLINE, AEDTL_LASTLINE 
L_FLAGS, 6$ 

c FLAGS 

CO 
AED_B_COLOMN, -(SP) 


4$ 
#8320, AED_L_FLAGS 


15 


AEDSMAIN 15=Sep=1 47:16 AX-11 Bliss-32 V4.0-742 
voe~000 ACT_MOVE_ACE = move to ACE boundary 12-305-1984 $7:93:39 ACLEDT.SRCJAEDMAIN.B352; 1 
03 C1 a3 €9 000C6 8S: BLBC  AED_L_FLAGS+1, 9$ 
00E 5 ita BRW 1h ‘: 
3 04 6 p0 CD 9$: MOVL § @AED_L_LASTLINE, AED_L_FIRSTLINE 
0 FO AS 9E 000D1 MOVAB AED _G_CINETABLE, R 
0 i p] O03 CMPL aoe R 
co OAS Q 8 ODA BISB2 #32, AED_L_FLAGS 
63 0D Op 10$: PUSHL AED.L_FIRSTLINE 
6 01 FB OO0E CALLS #1, AED POSITION 
78 co OA 05 €1 OO0E BC #5. AED"L_FLAGS, 12$ 
4 D4 O00E CLRL BUFFER INDEX 
£0 A 1 : QOEA MOVB #1, AED_B COLUMN 
C1 A 4 F EE BISB2 #64, AED_C FLAGS+1 
78 A3 B4 OOOF CLRW SEGMENT SIZE 
0284 C3 B4 000F6 CLRW AED_W_TOTALSIZE 
50 63 DO OOOFA MOVL  AEDTL“FIRSTLINE, R 
0% 8 70 Ad OE O00FD INSGUE AED“T"CURLINE, @4(RO) 
5 70 A : 0102 MOVAB  AED-T-CURLINE, RO 
06 A 50 D0 00106 MOVL RO, AED_L_LASTLINE 
6 50 D0 0010A MOVL * AED"L-FIRSTLINE 
OA AO 01 B80 00100 MOVW 1° 10<ROY 
FC «OAS. «D4 00111 CLRL  AED_L_CURACE 
Ci Ad 95 00114 TSTB AED L~FLAGS#1 
44 18 00117 BGEQ 1$ 
68 «A3 34 00119 CLRB_ = AED_B_ACETYPE 
C2 AS 08 8A 0011C BICB2 #8, AED_L_FLAGS+2 
54 DD 00120 PUSHL  R4 
00006 CF 01 FB 0012¢ CALLS #1, AED_SELECTFIELD 
04 AG 78 A3 BO 001 MOVW  AED_T_CORLINE+8, ECHO_DESC 
08 AG 0084 C3 9E O012C OVAB AED-T~CURLINE+20, ECHO_DESC+4 
01 DD 00132 PUSHL #1 
7E E4 AS 9A 00134 MOVZBL AED_B_LINE, -(SP) 
000000006 00 02 FB 00138 CALLS #2, SCRSSET_CURSOR 
04 AG OF 0013F PUSHAB ECHO_DESC 
00006 CF 01 FB 00142 CALLS #1, KED_PUTOUTPUT 
7E 78 AS 3C 0014 MOVZWL SEGMENT-SIZE, -(SP) 
6f D6 00148 INCL P) 
7E E4 AS 9A 0014D MOVZBL AED_B_LINE, -(SP) 
000000006 00 02 FB 00151 CALLS #2, SCRSERASE_LIN 
£0 A3 64 01 gi 00158 ADDB3 #1. BUFFER_INDEX, AED_B_COLUMN 
00¢p 1 0015D 11$:  BRW 23§ 
63 DD 00160 12$:  PUSHL AED_L_FIRSTLINE 
66 01 FB 0162 CALLS #1, AED _COPSEGMENT 
50 63 BO O16 MOVL  AED_L_FIRSTLINE, RO 
04 80 70 AS OE 00168 INSGUE AEDT"CURLINE, @4(RO) 
50 70 «AS 9 9016p MOV AEDT CURLINE, RO 
04 A3 50 00 00171 MOVL RO, AED_L_LASTLINE 
63 30 DO 00175 MOVL RO, AEDTL FIRSTLINE 
3 63 DO 00178 MOVL AED_L_FIRSTLINE, R 
0284 ¢ 08 Ag 80 0178 MOVW 8(R2)> AED W TOFALSIZE 
51 0% Ad D 4 1 MOVL AED_L LASTCIRE R 
1€ OA Al 01 EO 185 13$: BBS #1,710(R1), 15$ 
50 70 AS 9E OO1BA MOVAB AED_T_CURLINE, RO 
50 51 D1 0018 CMPL  R1, RO 
04 if} 0191 BNEQ 
04 a3 61 0 0193 MOVL (R1), AED_L_LASTLINE 
04 =A 04 B3 DO 00197 148 MOVL  @AED/L_LASTCINE, AED_L_LASTLINE 


ehtes 


| AEDSMAIN 1984 23:47:14 AX-11 Bliss-32 V4.0-742 Page 81 
|Wo4=000 ACT_MOVE_ACE = move to ACE boundary 1a-0b- tone $7:95:55 PACLEDT SRE AEDMAIN.B32;1 9 16) 
s 4 A3 00 0019 MOVL AED_L_LASTLINE, R1 3 2612 

0284 é4 68 Ai 8 120 ADDW2 8 (RT); AED_W_TOTALSIZE 3 
DD 11 148 BRB 13$ : 2606 
FC AS OC A2 dO O01A8 158 MOVL  12(R2), AED_L_CURACE + 2614 
78 11 OO1AD BRB 22$ : 2615 
50 63 D0 OAF 16$ MOVL  AED_L_FIRSTLINE, RO : 2621 

5 04 88 DO 00182 MOVL 4(R0)> RO 3 

é 50 D0 0186 MOVL RO, AED_L_FIRSTLINE : 

04 A 30 DO 00189 MOVL RO, AEDTL~LASTLINE ; 
30 63 00 001BD MOVL  AEO_L_FIRSTLINE, RO + 2622 

0284 ¢ 08 a0 BO 001C0 MOVW 8 (RO); AED W_TOTALSIZE : 
50 6 08 016 MOVL AED ‘ FIRSTLINE, RO 3 2623 

1A OA Ap £8 001C9 17$:  BLBS  10(ROJ, 19$ : 
50 08 A3 D1 001CD CMPL AED_L_BEGINLINE, RO + 2626 

05 12 00101 BNEQ  18$ : 
08 a3 04 AO 0D 00103 MOVL 4(RO), AED_L_EEGINLINE : 2627 
é 04 AO DO 00108 18$ MOVL 4(RO), AEDL~FIRSTLINE + 2628 
50 63 DO 0010¢ MOVL.  AED_L_FIRSTLINE, RO + 2629 

0284 (3 08 Ad AO 0010F ADDW2 8 (RO)> AED_W_TOTALSIZE : 
E¢ 11 OO1ES BRB 17$ > 2623 
63 DD OO1E7 19S: PUSHL AED_L_FIRSTLINE > 2631 

65 01 FB OO1E9 CALLS #1, AED_POSITION 3 
63 DD OO1EC PUSHL AED_L_FIRSTLINE 3 2632 

66 01 FB OO1EE CALLS #1, AED_COPSEGMENT : 
50 63 DO 001F1 MOVL AED_L_FIRSTLINE, 3 2634 

04 80 70 A3 OE 001F4 INSQUE AED-T-CURLINE, @4(RO) ; 
53 08 A’ D1 001F9 CMPL  AED-L“BEGINLINE, AED_L_FIRSTLINE + 2635 

05 12 O0O1FD BNEQ  20$ ; 

08 A 70 A3 SE OO1FF MOVAB AED_T_CURLINE, AED_L_BEGINLINE ; 
6 04 AS D1 00204 20$:  CMPL AED-L“LASTLINE, AED_C_FIRSTLINE > 2636 

05 12 00208 BNEQ 21$ : 

06 A3 70 A3 YE O020A MOVAB AED_T_CURLINE, AED_L_LASTLINE ; 
63 70 AS 9E OO2ZOF 21$:  MOVAB AEDTICURLINE, AED“L-FIRSTLINE : 2637 
50 63 D0 00215 MOVL AED-L“FIRSTLINE, RO : 2638 

0284 (C3 08 AO BO 00216 MOVW 8(RO)> AED W TOTALSIZE : 
FC OAS 0¢ Aad 00 0021C MOVL.  12(ROS, AED_C_CURACE : 2639 
CO OAS 4020 8F AA 00221 BICW2 #16416, AED-L-FLAGS > 2641 
64 04 00227 228: CLRL BUF FER_INDEX ; $664 
EO a3 01 90 00229 MOVE. #1, AED B COLUMN > 264 
7E 64 01 ¢1 0022D 338 ADDL3 #1, BUFFER_INDEX, -(SP) > 2645 

7E E64 A3 9A 00231 248 MOVZBL AED_B_LINE; -(SPS : 

00006 CF 02 FB 00235 CALLS #2, AED_SET_CURSOR ; 
C1 AS 2008 8F AA OO23A BiCw2 #8200, AED_C_FLAGS+1 > 2647 
28 AG 9G 99 40 CLRB.—s TERM “HAR ; 2648 
50 01 DO 0024 MOVL #i, %0 > 2649 
04 00246 RET > 2651 


; Routine Size: 583 bytes, Routine Base: S$CODES + 16F0 


es 


16 
AEDSMAIN 1-50 1984 23:47:14 AX-11 Bliss-32 V4.0-742 Pa 2 
yo2-000 ACT_MOVE_BOL = move to beginning of Line 14-Sep-19 4 #7:95:35 LAcLeDT sre AEDMAIN.B32;1 9 198 


: 221 6 1 ZSBTTL ‘ACT_MOVE BOL = move to beginning of Line’ 
; i$ 6 : 1 ROUTINE ACT_MOVE_BOL = : . 
; 2218 654 1 
3 19 655 1 !e4 
; 0 $26 .? 
3 1 $2 ! } FUNCTIONAL DESCRIPTION: 
; § $38 = This routine positions the cursor to the beginning of the current 
5 4 660 1! Line segment. 
3 5 661 1! 
3 $ 662 1 ! CALLING SEQUENCE: 
; 663 1! ACT_MOVE_BOL () 
; 8 664 1! 
+4 9 665 1 ! INPUT PARAMETERS: 
g 0 666 1! none 
3 1 667 1! 
tz g 668 1 ! IMPLICIT INPUTS: 
3 § 669 1! OWN storage 
: 2234 670 1! 
3; 2235 671 1 ! OUTPUT PARAMETERS: 
3; 2236 $076 1! none 
3; 2237 673 1! 
3; 2238 674 1 ! IMPLICIT OUTPUTS: 
; $sip 675 1! none 
3; 2240 676 1! 
: 2261 67 1 ! ROUTINE VALUE: 
3 stg 678 1! 1 if successful 
3: 224 679 1! error status otherwise 
3 ssee 680 1! 
3 2245 681 1 ! SIDE EFFECTS: 
3; 2246 682 1! The Line segment table is updated as necessary, ACE Line pointers 
> 2247 2683 1! are updated, and the object's ACL is updated as necessary. 
3 ssee 684 1! 
; son 685 1 !-- 
3 § 50 686 1 
: 2251 687 2 BEGIN 
5 $$2¢ 2688 
3; 225 689 BUFFER_INDEX = 0; 
3 2254 690 2 AED_W_TTEMEND = 0; 
3; 2255 691 AED_B COLUMN = 1; 
; 2256 69 AED-SET_ CURSOR (.AED_B LINE, 1); 
: 2257 69 AED-L_FCAGSCAED_V_GOCDREY] = 0; 
3 2258 694 2 AED"L-FLAGSLAED-V-ACTIONKEY] = 0; 
: $23 695 RA_CHAR = 0; 
; 2260 om RETURN 1; 
3; 2261 69 : 
3 2262 698 END; ! End of routine ACT_MOVE_BOL 
0000 00000 ACT_MOVE_BOL: 
-WORD Save nothin : 265 
p00 CF D4 00002 CLRL BUF FER_INDE : 268 
00° ff Be 0006 CLRW aFoL TTEMEND 3: 269¢ 
6000° 1 0 OOOOA MOVB #1,” AED_B_ COLUMN ; 2691 


sees" 


: Routine Size: 


ACT_MOVE_30L = move to beginning of 
7E 0000' 

Q0000G CF 
0000" CF 2008 


0000° 


42 bytes, Routine Base: SCODES 


1 
14- 
0011 
ey 316 


6 6 dO «80838 
04 00029 


+ 1937 


cr Ok 
yc 
F 


Fears 


. le 984 47:14 
~Sen- 198 $7:$5 29 


AX-11 Bliss-32 V4.0-742 
ACLEDT.SRCJAEDMAIN.B32;1 


D_B. LINE (SP) 
“aED_SEf_CURSO 
iio KEO_C_ tee 


° 


16 
18-Sep-19 4 $36 
MOVE _EOL = move to end of Line 14-Sep-1984 11:5 


ZSBTTL ‘ACT_MOVE_EOL = move to end of Line’ 
ROUTINE ACT_MOVE_EOL = 


ee 


' 
FUNCTIONAL DESCRIPTION: 


$5 
s 


7:14 AX-11 Bliss-32 V4.0-742 Page 
act 2:29 LACLEDT SRC JAEDMAIN. 85201 att 3} 


— 


NO 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 
s ACL is updated as necessary. 


SREANSLESSLSALALLSS 


are updated, and the object 


i 
70 
71 ; This routine positions the cursor to the end of the current Line 
f } segment. 
7% i CALLING SEQUENCE: 
i} ACT_MOVE_EOL () 
7 i INPUT PARAMETERS: 
78 none 

i IMPLICIT INPUTS: 

storage 

i QUTPUT PARAMETERS: 

none 

i IMPLICIT OUTPUTS: 

none 

i 

i 

i 

i 

i 

i 

i 

i 

be 
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RIP IM IM IPIN INI INI IID a at at at a nt a st kk i kk kk ht tt ot 


97 - 
98 
+4 BEGIN 
301 BUFFER_INDEX = .SEGMENT_SIZE; 
3 ¢ AED_W_TTEMEND = .BUFFER INDEX; 
30 AED_B COLUMN = .BUFFER_INDEX + 1; 
AED-SET_ CURSOR (.AED 8 LINE « .AEO_B_COLUMN) ; 
305 AED-L_FCAGSCAED_V_GOCDREY} = 0; 
06 AED_L_FLAGSLAED_V_ACTIONKEY] = 0; 
07 74 TERM CHAR = 0; 
08 74 RETURN 1; 
309 744 ; 
310 745 END; ! End of routine ACT_MOVE_EOL 


QO00C 00000 ACT_MOVE_EOL: 
WORD 


- Save R2,R3 : 2700 
ee 2 7 
8 $098 C2 3¢€ 0000C MOVZWL SEGMERT_SIZE. BUFFER_INDEX : 2736 


eepem ie -Sep- 3:47:14 AX-11 wots 32 V4.0-742 Page 8s 
-000 ACT_MOVE_EOL = move to end of Line -Sep- 1:52:29 ACLEDT. $RC} AEDMAIN.832;1 a 


0084 63 BUFFER INDEX. AED_W_ITEMEND : 2737 
62 01 #1, 8 surree | NDE X “AED_8_ COLUMN 3; 2738 
62 AED_B_C (§P) : 2739 
A2 AED=-8 he 2¢SP) : 
00006 02 #2, AED_SET_CURSOR : 
E1 8F #8200 - AED. C_FLAGS+1 : 2741 
A3 TER : 749 
01 Se 3 274 
3 2745 


; Routine Size: 51 bytes, Routine Base: S$CODES + 196: 


$38 ,-19 


TE 
Lf ;NEW_TEXT LINE LINE_V_BEGINACE) 


wr 


w 


GIN 
IF .AED_L_FLAGSCAED_V 
R ED_V 
AED_V 


AEDSMAIN 4 23:47:14 AX-11 Blis 
vou ACT_UP = move up to previous Line 122805-1 986 17:83:29 ACLEDT.SRCI 
; 231 746 1 ZSBTTL ‘ACT_UP = move up to previous Line’ 

: 3g eto | ROUTINE ACT OP = ies 

3: 2314 rs 1 

3; 2315 749 1 S44 ; 

; 19 750 1! 

; 4 f 1 : FUNCTIONAL DESCRIPTION: 

3; 2319 7 : 1: This routine moves the cursor up to the previous Line segment. If 
; $y 754 1! the current ACE has been modified but not entered, it is done before 
: 1 eo Re moving the cursor. The cursor position in the new Line segment 

3 ¢ 7 $ 1 } is minimized with the current cursor position and the end of the 
g : f ‘ : Line segment. 

3 5 759 1°! CALLING SEQUENCE: 

; $ 760 1! ACT_UP () 

; 761 1! 

; 8 166 1 ! INPUT PARAMETERS: 

3 9 765 1! none 

; 0 764 1! 

3 : 1 re? : } steno Mgr ie 

3 ‘ storage 

3; 23 : 767 1! - 

3; 2334 768 1 ! OUTPUT PARAMETERS: 

; 2335 769 1! none 

; 2336 770 1! 

3 37 771 +1 ! IMPLICIT OUTPUTS: 

3; 2338 772 1! none 

3; 2339 773, (1! 

3; 2340 774 1 ! ROUTINE VALUE: 

5 re f1> 3 3 1 if successful : 

; ¢ yee : error status otherwise 

: se 778 1 ! SIDE EFFECTS: : 

: 2345 779 1! The Line segment table is updated as necessary, ACE Line pointers 
; 208 7B0 ! } are updated, and the object's ACL is updated as necessary. 

3: 2348 782 1 !-- 

: $08 783 «1 

3; 2350 784 BEGIN 

3; 2351 785 

3 326 786 LOCAL f 

3 307 44 UP_LINE_SEGMENT : REF S$BBLOCK; ! Address of previous line 
: 336 4 AED_L_FLAGSCAED_V_INSERTEXT] = 0; ! No item selection 

3; 2357 791 IF .AED_T_CURLINECLINE_L_BLINK] NEQA AED_Q_LINETABLECLINE_L_FLINK] 

3; 2358 79 THEN 

3; 2359 79 BEGIN 

: 794 NEW_TEXT_LINE = AED_REPSEGMENT (); 

: 7 

3 4 

: 4 

3 7 4 

: 8 4 

A 4 

3 5 


N 
BEGIN 


ref 
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16 
AEDSMAIN 14.28 =1984 23:47:14 AX=11_Bliss-32 V4.0-742 P 
Vv ACT_UP = move up to previous Line 1228057198 $7:93:39 EACLEDT-SRe AEDMAIN.B32;1 age 8 
: 34 $ 9 ; AED_W_TOTALSIZE = .AED_W_TOTALSIZE + .AED_L_FIRSTLINECLINE_W_ SIZE; 
i hee ¢ AED_LCURACE = .AED_L_FIRSTLINECLINE_L_BINACE]; 
; 430 6 BUFFER. INDEX = MIN (.SEGMENT_SIZE, .AED_B_COLUMN = 1); 
3; 24 3 66 2 ELSE AED BLINE = 1; 
> 26 6 AED_SET_ CURSOR (.AED_B LINE, -BUFFER_INDEX + 1); 
3 26 3 AED_L_FCAGSCAED_V_ENDACL) = 0; 
> 2435 § AED-L“FLAGSLAED-V-GOLDKEY) = 0; 
: 26 QO 2 AED“L“FLAGSCAED-V-ACTIONKEY) = 0; 
: 54 71 2 TERM CHAR = 0; 
3 24 1 RETURN 1; 
; 2439 87 
3; 24460 874 END; ! End of routine ACT_UP 


001C 00000 ACT_UP: .WORD Save R2,R3,R4 : 2747 
54 0000' CF 9E 9000¢ MOVAB NEW_TEXT_LINE, R4 : 
53 0000" CF 9€E 9000 VAB AED_L_FIRSTLINE, R3 3 
cl A’ 40 8F 8A 0000C BICB2 #64, RED L_FLAGS+1 > 2789 
50 FO A3 9E 00011 MOVAB AED_Q_LINETABLE, RO : 2791 
50 7%, Ad D1 90013 CMPL § AED-T—CURLINE+4, RO ; 
03 12 00019 BNEG 18 : 
013¢ 31 00018 BRW 18$ ; 
00006 CF 00 FB OO01E 1$ CALLS #0, AED_REPSEGMENT > 2794 
64 50 D0 0002 MOVL RO, NEW-TEXT_LINE ; 
03 0A AO ES 00026 BLBS = 10(R0), ~3$ > 2795 
OOAF 31 0002A 38: BRW 11$ : 
CO AS 95 00020 3S: TSTB = AED_L_FLAGS : 2798 
0A 19 00030 BLSS 6 4$ ; 
05 C1 a3 05 €0 000 : BBS #5, AED_L_FLAGS+1, 4$ : 2799 
EE C1 As 06 £1 0003 BBC #6, AED-L~FLAGS+1., 2$ > 2800 | 
0000v CF 0 FB 0005¢ 4$ CALLS #0, FINTSA_ACE ; e805 
C1 AS 95 00041 TST AED_L_FLAGS+1 ; 2804 
10 18 00044 BGEQ ~=s«éS$ ; 
08 C1 a3 04 £1 00046 BBC #4, AED_L_FLAGS+1, 5$ : 280 
50 64 0 0048 MOVL NEW_TEXT CINE, RO ; 280 
OA AO 04 88 OO04E BISB2 #4, 0) ; 
0284 (C3 BA 005 CLRW  AED_W_TOTALSIZE : 2809 | 
C1 a3 40 8F 8A 0056 5$ BICB2 #647 KED_L FLAGS#1 : 2811 
0284 C3 B 58 TST AED_W_TOTACSIZE > 2812 
03 12 0005F BNEQ ; 
7%4 94 00 00061 MOVL  @NEW_TEXT_LINE, NEW_TEXT_LINE > 2813 
00006 cr 09 FB 00064 6$ CALLS #0, AED COMPRESS : 2814 
£ 0284 3C 00069 MOVZWL AED_W_TOTALSIZE, -(SP) > 2815 
00006 CF 1 FB 0006 CALLS #1, ~AED_UPDATEACL ; 
4c AS 9 D 907 RO, AED-L_STATUS ; 
5 4c ASE 007 BLBS AED_L_STATUS, 108 : 2816 
co A 40 BF 0078 BISB2 #647 KED_L_FLAGS : 2819 
63 DD 000 PUSHL = AFD FIRSTLINE : 2820 
00006 CF 01 FB 000 ‘ CALLS #1, AED POSITION ; 
63 DD 000 PUSHL AOL FIRSTLINE : 2821 
00006 CF 01 FB 00089 CALLS #1,~AED_COPSEGMENT : 


“11 Bliss-32 v4.0- c 
WER FESSEAS UCL ENarDaL tale 
e = 
INE, RO 
to previous Line Le AED FIRSTL (RO) 
RT ates ae SO ae eee EE ALES esnuin 
04 69 7 ; 036 Sa Se £, AED L_LASTLINE 
: A i 9 CAPE AED“LZBEGINLIK E, AEDIL_FIRSTLINE 
7 7$ Pa INE 
06 =A Al 0 8 D_L_BEGINL 
é wh AS ROVAB MEM Tm CURCINE! AEDHE =F IRSTLINE 
os 70 AS BE QOOA 8$ ps RED“LFIRSTLINE, AEDIL_LAS 
e3 63 D1 0008 BEQL «9S AGS, 9$ 
06 A 9 +44 ee lata eee 
A 8 GA besos Bice2 ase, AES CE 
“ fo A cs he De os 5 elle ae Ab Be eOr Dine SP) 
01 90 0 MOVZBL AE =(SP) 
hl eae es 
7E E4 FB 000C Rid 20g AGS 
00006 CF 009, 51 ag00§ 108: Bitw2 #8520, AED L FL 
co 87080 BOO booe 198 MOVE CRO). SUBLINE. SEGMENT 
2m HB Be aS ila 
Q1 FB OOOES CCE ST RED "FOPCEORENT E_SEGMENT) 
ae 81 Pe oooEe INSGUE heb. T COAL (uP Me SEGMENT 
We BRAG foie serine dep BEGINLINE 
£3 ee 8 OOOFA MOVAB AED “U-FIRSTLINE. UPCCING SEGMENT 
70 83 BF oorol 128: mee .- RSTLINE 
08 AS 6 8) Pgi0) et CURLINE. AED t FI 
cu 
He RRR he i ioiem 
7A AS AS 9E 001 MOVL = RSTLINE 
33 89 70 Me 00115 MOVL RO, AEDELTFIRSTLIN 
fee AS DO OTA mOVG BROS AED TOTAL SIZE 
OOS 63 DO 00124 Bras | TORT. san 
0284 ¢ $y PB OOls? 148: Brus ACRO) » AED L_FIRSTLINE 
50 ~ AQ £8 00127 MOVE. AED OL FIRS TT ING 
83 * BS bo olde ADDW2 aoa AED_W_TOTALSIZE 
i AO AO 001 BRB «148 NE, RO 
vel pe DBE iss, Bie tab MEL Mia 
33 AQ 0 001 MOVZBL AED_B_COLUMA, 
A3 oc 9A 00142 168 RI 
eee - i BF poles ROVZUL SEGMENT SIZE, RO 
50 78 3 ote grea |= ivg * 
? 06 a3 ROVE RO GUFFER_INDEX 
50 0D 134 we he 19§ 
EB AG 4 11 Ds MOVE, #1, AED Re INDEX, (SP) 
15A 18$: #1, BUFFE 
E4 AB a 7 128 19$: ADDL3 
7E EB Ad 
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DSMAIN 15 1984 23:47:14 AX-11 Bliss-32 V4.0-74 
vou ACT_DOWN = move down to next Line 1273601984 7:35:39 UACLEDT  SRESAEDMAIN B S241 


3: 2646 75 1 2SBTTL ‘ACT_DOWN = move down to next Line’ 

: 244 76 1 ROUTINE ACT_BOWN = 

> 24446 7 

3; 2465 o78 1 te¢ 

5 rr | 879 1! 

; ret est : : FUNCTIONAL DESCRIPTION: 

3 2669 8 § 1! This routine moves the cursor down to the next Line segment. The 
3; 2450 rt 1! cursor position in the new Line segment is minimized with the 
3 te) Bae : } current cursor position and the end of the Line segment. 

3 438 8 1 ! CALLING SEQUENCE: 

3: 24546 8 1! ACT_DOWN () 

3; 2455 888 1! 

3; 2456 889 1 ! INPUT PARAMETERS: 

3; 2457 34 1! none 

3; 2458 891 1! 

3; 2459 O36 1 ! IMPLICIT INPUTS: 

3; 2460 895 1! OWN storage 

3 2461 894 1! 

; re Bee 1 ! OUTPUT PARAMETERS: 

3; 246 9 1! none 

3: 2464 897 1! 

3; 2465 898 1 ! IMPLICIT OUTPUTS: 

: 2466 899 1! none 

3 2467 900 1! 

3; 2468 901 1 ! ROUTINE VALUE: 

3 2469 a06 Bz 1 if successful 

3; 2470 2903 1! error status otherwise 

3 2471 2904 1! 

3 sey 2905 i ! SIDE EFFECTS: . ; 
3 247 2906 1! The Line segment table is updated as necessary, ACE Line pointers 
$ seue 3444 : are updated, and the object's ACL is updated as necessary. 

3 3076 3308 1 le 

3 2477 910 1 

3: 2678 34h BEGIN 

3 2479 aig 

3; 2480 34 LOCAL 
3 set sore DOWN_LINE_SEGMENT : REF SBBLOCK; ! Address of next Line segment 
; $08 2916 IF NOT .AED_L_FLAGSCAED_V_ENDACL] 

3: 2484 2917 OR .AED_W_TOTALSIZE GTR-O-OR .SEGMENT_SIZE GTR 0 

3; 2485 4 THEN 

3 2486 91 BEGIN 

3: 2487 920 NEW_TEXT_ LINE = AED_REPSEGMENT (); 

3 2488 921 IF TAED_C_LASTLINE EQLA NEW_TEXT_LINECLINE_L_FLINK] 

: 2489 9 § THEN 

3: 2490 9 4 BEGIN 

3 2491 924 4 IF .AED_L_FLAGS ped .v oo it 16° 

3: 249 5 4 OR .AED_L_FLAGSLAED_V_INSERT 

3: 249 9 $ 4 OR .AED_L_FLAGSCAED_V_INSERTEXT) 

3s 2494 9 4 THEN 

3 2495 928 BEGIN 

3 2496 929 FINISH_ACE (); 

+ 2497 930 IF .AED_L_FLAGSCAED_V_PROMPT] 

3; 2498 931 AND .AEB_C_FLAGSCAEB_O_FIRSTCHAR] 
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DOWN = move down to next Line 


“2 


INE_V_DUMMY] = 1; 


= ,NEW_TEXT_LINECLINE_L_BLINKI; 
PDATEACL (.AED_W_TOTALSIZE); 


.AED_B_COLUMN) ; 

AED“L~FLAGSLAE "0; 
TERM CHAR = 0 
END; 

AED _L_FLAGSCAED_v_MODIF IED] = AED_L_FLAGSCAED_V_INSERT] = 0; 
END; 

DOWN _LINE_ SEGMENT = .NEW_ 

D_ POSITION (DOWN LIN 


); 
.DOWN_LINE_SEGMENTCLINE_L_BLINK]); 


LINE _L_FLINK); 
FLINK); 
IF ,DOWN_LINE_SEGHENT EECINE C FLINK) 


BEGIN 
eet en a CUAL IMELL INE _V_DEGIMACE} 
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BEGIN 
IF .AED_L_LASTLINE EQLA AED_T_CURLINE 


<> 
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R4 
GS, 1$ 
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W_TEX 
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EGMENT_SIZE 


NEW 
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1 
AEDSMAIN 1-5 =1984 23:47: M-11 Bliss-32 V4.0-742 P 94 
v5 000 ACT_DOWN = move down to next Line eats PEA eC Letts TT LSI 29° 50) 
00006 CF F 1f 1$: CALLS #0, AED_REPSEGMENT : 2920 
64 g D 4 MOVL RO. NEWTTEXT LINE : 
64 44 A t CPL AED _L_LASTLIRE, NEW_TEXT_LINE + 2921 
008 i 3: BRW 11$ : 
3 : IsTB * ose + 2924 
o1 A 5 3 4 BBS #5, AED_L_FLAGS+1, 4$ + 2925 
Re E1 9 BBC #6. AED"L-FLAGS+1, 2$ ; 2926 
0000v CF $ F e 4$: CALLS #0. FINISA ACE + 2929 
01 A’ 98 4 iste A 6_L_FLAGS+1 + 2930 
01 «AB be E1 § rk BBC #4, AED_L_FLAGS+1, 5$ + 2931 
5 8° 8 0040 MOVL NEW_TEXT_CINE, R 3: 2934 
OA A 4 9090 BISB2 #4,710(RO) ; 
02c4 «C3 BA 054 CLAW AED_W_TOTALSIZE + 2935 
1 AS old A BR SSSR He HES Mc chne Bu 
07 ° 0061 BNEQ 3 “ ; 
50 64 DO 00063 MOVL NEW _TEXT_LINE, RO + 2939 
64 04 AO DO 00066 MOVL 4(RO), NEW TEXT LINE : 
00006 cr 00 FB O006A 68: CALLS #0, AED CO + 2940 
abe E 02¢4 i 3¢ O06F MOVZWL AED Ww TOTALSIZE, -(SP) + 2941 
008c «C3 : DO 00079 * AED"L_S ; 
SA 008¢ ¢ E 075 AED_L_STATUS, 10S + 294 
63 40 «BF 008 BISB2 #647 AED_L + 294 
40 A3 DD 00087 PUSHL AED_L_FIRSTLINE + 2946 
we 4o AS be oo0ar Site RES CCP EAST LIME t 2947 
0000s ag HE BS 88888 GAMES. Mls APES Lame 
04 80 0080 3 BE 0098 INSQUE AEDTT-CURLINE, @4(RO) : 
40 A 44 As Dt 0A} CMPL AEDILILASTLINE, AED_L_FIRSTLINE : 2950 
4a AB 0080 c3 9E O00A8 MOVAB AED_T_CURLINE, AED_L_LASTLINE : 2951 
40 Ad 4 A pI o0e8 7$ cMPL AED_L_BEGINLINE, AED“L_FIRSTLINE + 2952 
48 «AB 0080 C3 9E 000B MOVAB AED_T_CURLINE, AED_L_BEGINLINE + 2953 
40 a3 000 C3 9E 000BB 8S MOVAB AED“T"CURLINE, AED-L~FIRSTLINE + 2954 
44 «AB 4 a3 p ance cMPL AEDIL-FIRSTLINE, AED“L_LASTLINE : 2955 
63 a5 1 000¢ BBC #5, AED_L_FLAGS, 9$ + 2956 
63 0 BA goce BICB2 a3 AEB _C FLAGS + 2957 
E8 Ad D4 OOOCF 9S: CLRL BUFFER INDEX : 2958 
20 a3 01 90 be MOVE #1, AED_B COLUM > 2959 
7E 20 ooh} 9A 006 MOVZBL Ab B_COLOMN, (SP) > 2960 
$3 2080 BF AA Opp 10 BICW2 $8320 AED_L_FLAGS > 2966 
¢ 00 BP Aatee TE Fa catia Eeeaengomnsteseoment 
00006 CF ; FB £8 CALLS Pie RED POSITION ; 
00006 CF eB EP Tt eon Beads 
$? 83 0080 C3 0 F4 INSGUE AEO_T_CORLINE, @4(DOWN LINE SEGMENT) : 2978 
4 As p FA cMPL AEDILILASTLINE, DOWN_LINE_ SEGMENT : 297 
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AED _L_BEGINLINE 
RO 


Sa36 V4.0-742 
AEDMAIN.832;1 
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eg geeeh sh ASTLINE 
TALSIZE 


URACE 
_B_COLUMA, “RI 
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Renew -SIZE, RO 


oa orm 


AED_B 
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Acb_T_CORLINE*8 ECHO_DESC 
AFD-TICURLINE* 6, ECHO_DESC+4- 


s 
AED_8 LINE, -(SP) 
#2, “SCRSSET_CURSOR 
ECHO_DESC 
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ACT_DOWN = move down to next Line 


MON POT 


OrFro—-OoF POOrOaroe 


; Routine Size: 


3: 4 AX-11 Bliss-32 V4.0-742 
at fi $5: 38 ACLEDT. Src AEDMAIN.B32;1 


CALLS AED_PUTOUTPUT 
WOVZUL ao -(SP) 


N 
MOVZBL AED_B_L at at? 
ae, Sth 


CALLS ERAS 

AD BUFFER I NDEX, AED_8_ COLUMN 
AE _B_COLUAN Ne = SP) 

MOVZBL AED. 8 LIN NE =( 

CALL “AED Sef CURSOR 

B1S6 iss AED _PLAGS+1 

BICW AE B7L ~FLAGS+1 

CLRB FRM Euan 

MOVL 

RET 


1 
von 000" ACT_RIGHT = move right one character b-sep-1944 $7395 345 Mere SRESAc SMA TiN Boo. Page 375 
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om 


599 1 SSBTTL_ ‘ACT_RIGHT = move right one character’ 
60 ROUTINE ACT_RIGHT = 
O06 'e¢ 

i 


FUNCTIONAL DESCRIPTION: 


This routine advances the cursor one character to the right. If 
the end of the Line segment is reached, the cursor is set to the 


1 3 
; 1 3 
3 1 F 
; 4 ; 
; $ 1! ; 
3 ' 7 3 
; § 1! ; 
: 2608 rt 1! first character of the next Line. : 
: 2609 1! 3 
3; 261 rh} 1 ! CALLING SEQUENCE: 3 
361 43 1 | ACT_RIGHT () 
: gig 45 1 | INPUT PARAMETERS: ; 
3 oie rf ! none : 
: 616 O48 1 | IMPLICIT INPUTS: : 
3 elt ets : } OWN storage : 
> 2619 051 1 ! OUTPUT PARAMETERS: : 
BR oe BN Tp = 0 : 
; 26 054 1 | IMPLICIT OUTPUTS: ; 
3 ; bee : } none : 
> 2625 iid 1 | ROUTINE VALUE: ; 
3; 26 § bee 1! if successful : 
3 , bap ' error status otherwise : 
+ 2629 061 1 ! SIDE EFFECTS: F 
3; 26 bes 7? The Line segment table is updated as necessary, ACE Line pointers F 
3 th Ror : : are updated, and the object's ACL is updated as necessary. ; 
; oss 065 1 In ; 
; 6 06 BEGIN ; 
; 26 oes IF .BUFFER_INDEX LSS .SEGMENT_SIZE : 
3; 2638 0 9 THEN FY 
: 2639 07 BEGIN ; 
3; 2640 Ors BUFFER_INDEX = .BUFFER_INDEX + 1; : 
3 2641 7 AED_B COLUMN = .BUFFER_INDEX + 1; : 
i 3648 74 AED-SET CURSOR (.AED B”LINE, ,AED_B_COLUMN) ; : 
3 264 75 AED-L_FCAGSCAED_V_GOCDREY] = 0; : 
3 2644 07 AED_L_FLAGSCAED_V_ACTIONKEY] = 0; : 
3 2645 7 TERA _CHAR = 0; : 
3 046 g Be TURN 1; : 
+ 264 7 ; 
: $6e8 1 5 aurrer inex = 9; i 
3 $30 § AED) COLUMN = 1; é 
3; 2651 AED L-FLAGSLAED_V_GOLDKEY) = 0; : 
i 3658 TERA CHAR = KEY~C~DOWN; : 
: $37 5 RETURN 1; : 
> 2655 $ END; ! End of routine ACT_RIGHT ; 


AEDSMAIN 18. Sep-1984 23: AX-11 Bliss-32 V4.0-74 
yo2-000 ACT_RIGHT = move right one character attr 7 +43: ‘s ACLEDT.SRCJA AEDMAIN.B32; 


000¢ ©0000 ACT_RIGHT: | 


«WORD Save R2,R3 3 

9000" CF gE 3 MOVAB BUFFER INDEX, R : 

' ¢F MOVAB AED_B gOL NR : 

63 0098 2 FD CMP ZV ‘ , #16, SEGMENT_SIZE, BUFFER_INDEX ; 
1 INCL.  ®BUFFER_INDEX : 

62 3 $3 ; 1 ADDB3 y BUFFER INDEX, AED_8_COLUMN : 
- 62 9A 00018 MOVZBL AEO_B_COLUAN, -(SP) : 

7E 04 Ad 9A 0001 MOVZBL AED“B“LINE, -(SP) ; 

00006 CF 0 FB CALLS #2, AED_SEf_CURSOR ; 

A2 2008 F AA BiCw2 #8200, KED_C_FLAGS+1 : 

28 A3 94 00020 CLRB m_¢H : 

Op 11 BRB : 

4 1$: CLRL 8 FFER. INDEX ; 

é 1 90 MOVE £B_B_COLUMN : 

3 A 8 8A 00 BICB2 ; AED L“FLAGS+1 : 

8 A 1C 90 00038 MOVE so é. TERM CHAR ; 

50 01 00 0003F 28: MOVL #1, RO : 

04 00042 RET 3 


; Routine Size: 67 bytes, Routine Base: S$CODE$ + 1031 


Ake 4 


AEDSMAIN 247.14 Ax-11 Bliss-32 v4.0-742 Pa 99 
vous ACT_LEFT = move left one character 12-8687} 4 #7:95:4§ ERCLEDT-SRETAEDMAIW. 832° 9°23) 
3; 2657 1 ZSBTTL ‘ACT bert - move left one character’ 

$ ° : ROUTINE AC ae: FT = 

: $06 3 yi 

; i , 

; 066 R7 1 FUNCTIONAL DESCRIPTION: 

3; 2664 Bae 1! This routine advances the cursor one character to the left. If 
3; 2665 39 1! the beginning of the Line segment is reached, the cursor is set 
: 086 044 : } to the last character of the previous Line. 

; p 9 1 | CALLING SEQUENCE: 

: $669 100 4 ACTLLEFT () 

: 2671 1 ; 1 | INPUT PARAMETERS: 

Bae Apts 

> 2676 105 1°! IMPLICIT INPUTS: 

: of? : $ : : OWN storage 

; $79 108 1 | OUTPUT PARAMETERS: 

oo Wa alouee 

; 111 1 § IMPLICIT OUTPUTS: 

: 1 11 1! none 

; : 118 1: 

3; 268 114 1 =! ROUTINE VALUE: 

3; 2684 116 1! 1 if successful 

: 5 118 { error status otherwise 

3 26 118 i SIDE EFFECTS: 

3 11 : The Line segment table is updated as necessary, ACE Line pointers 
3 oe : : } are updated, and the object's ACL is updated as necessary. 
Be | 

; 693 4 BEGIN 

3 2695 126 2 IF .BUFFER_INDEX GTR 0 

; O98 1 THEN 

3; 269 128 BEGIN 

3; 2698 129 BUFFER_INDEX = .BUFFER_INDEX = 1; 

3 144 130 AED_B COLUMN = .BUFFER-INDEX + 1; 

; 131 AED-SET_ CURSOR (.AED B-LINE, ,AED_B_COLUMN); 

> 3701 1 ; AED“L_FCAGSLAED_V_GOCDREY] = 0; 

3; 270 1 AED L_FLAGSCAED_V_ACTIONKEY] = 0; 

3 4 134 TERA_CHAR = 0; 

3 , : ! 5 alu 1; 

: 27 1 ‘ 

3 704 1 3 AED_B_COLUMN = .$BBLOCK C.AED_T_CURLINECLINE_L_BLINK), LINE_W_SIZE] + 1; 
: 708 1 AED-L~FLAGSLAED.V_GOLDKEY) = 0; 

3; 27 14 TERA_CHAR = KEY_C_UP; 

: at 1 RETURN 1; 

> 2712 143 1 END; ! End of routine ACT_LEFT 


+ het N 


; Routine Size: 


ACT_LEFT = move left one character 


62 


62 


67 bytes, 


Routine Base: 


000C 00000 ACT AEPT 
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ea rh 
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: DEC 
1 1 ADDB3 
A 1 MOVZBL 
. : Ba BR 
0 i HE 
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B 
01 
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oo 


004 


SCODES + 1074 
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1F-sep-1964 28:47:14 


Ax-11 at =32 V4.0-742 
AED 


ACLEDT. SRC) MAIN.B32;1 


save ne index. RS 
AED_B COLUM 
UPFER ThDER’ 


BUFFER | NDEX 

BUFFER INDEX, AED_B_COLUMN 
Aeb _B_COLUAN, -(§P) 

“B-LINE (SP) 

“AED SEf_ CURSOR 
i #8600, RED. C_FLAGS+1 


ADI 1 ¢ RLINE+4 RO 
AED_B. COLUMN 


f 
rN APPatt L“FLAGS® +T 
#1, RO 
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ZSBTTL ‘ACT_TOP = move to beginning of ACL’ 
ROUTINE ACT_TOP = 


'e+ 
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i FUNCTIONAL DESCRIPTION: 


— 
PPP 


0 

1 This routine moves the cursor to the first character in the first 
§ Line segment of the first ACE in @ ACL L. The display is scrolled 
z as necessary. 

5 CALLING SEQUENCES 

§ ACT_T r 

8 INPUT on 
60 
61 IMPLICIT INPUTS: 
6¢ OWN storage 

OUTPUT Ate ince 
non 


ita + Brit cni 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE errects: 
he Line segment table is updated as necessary, ACE Line pointers 
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i 
i 
i 
i 
i 
i 
i 
i 
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i 
i 
i 
i 
£ are updated, and the object's ACL is updated as necessary. 
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AED_L_FLAGSCAED_V_INSERTEXT] = 0; ! No item selection 


NEW_TEXT LINE = AED_REPSEGMENT (); 

IF oAeD bes prance AED- Y obit DJ 

OR .AED-L-FLAG AEDAV INSERT 

OR “ABD “LIFLAGSCAED-V~INSERTEXT) ( 


BEGIN 
F INISH_ACE 

If .AED_L FLAGSCAED V_PROMPT) 

AND’ .AED_C_FLAGSCAED_0_FIRSTCHAR 
THEN 

BEGIN 

NEW_TEXT_LIN NECLINE V_DUMMY] = 1; 
AED“W_TOTALSIZE = 0; 


AED _L_FLAGSCAED_V_INSERTEXT) = 0; 
AED W_TOTALSIZE EQL O 
THEW ANE” TEXT_LINE = .WEW_TEXT_LINECLINE_L_FLINK); 
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be FF:82:25 — EACLEDrPSAESAEomAtAcOsos1 


#5, AED_L_FLAGS*+1, 1$ 
#6. AED“L-FLAGS+1, 1$ 


#0, FINISH_A 
Reb LLFLAGS*T 


#4, AED L_FLAGS+1, 2$ 
NEW_TEXT CINE, RO 
#4 (RO) 


AEO_W_TOTALSIZE 
#64, RED_L_FLAGS+1 
4 D_W_TOTACSIZE 


@NEW_TEXT_LINE, NEW_TEXT_LINE 
#0, RED COMPRESS 
AED_W_TOTALSIZE, -(SP) 

ATEACL 
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1 
AEDSMAIN 15-Se 4 4 AX-11 Bliss-32 V4.0-742 
yo-000 ACT_TOP = move to beginning of ACL 14- 38- 1386 73 $3 i} ACLEDT™ OCRCIAEDMAIN B20) 
00006 cr 0 Fe £7 CALLS #1, AED_COPSEGMENT 
40 =A E nove AEb LU PIRSTLINE RO 
04 : 0 C F INSQUE AED- = GURL INE, §4 (RO) 
B F MOVAB  AED-T"CURLINE, RO 
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48 «A DO 001 MOVL RO, AED"L~BEGINLINE 
5 44 A2 00 001 MOVL AED L LASTLINE RO 
024 g 08 AO BO 001 MOVW 8 (RO)> AED W TOTALSIZE 
44 A2 00 0011 MOVL AFD LL LASTCIRE R 
10 OA A 07 €0 00115 9S: BBS #1,710(RO), 108 
44 «OA 60 DO OO11A MOVL (RO), AED_L LASTL INE 
5 44 A2 00 0011 MOVL. AED _C_LASTLINE, R 
02c4 C¢ 08 A Ag appu2 i RO); AED_W_TOTALSIZE 
5 40 A 00 12A 10$ MOVL Dat FIRSTLINE, RO 
ee 0¢ AO DO 001 : MOVL (ROY, AED _L_CURACE 
£6 A3 D4 001 CLRL ae INDER ~ 
0 A or 30 4 MOVE 6.8 COL 
he 1 90 0013A MOVB + AED" “B"LINE 
1 0D o1 PUSHL 
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00006 CF 3 FB 0014 CALLS H AED aap CURSOR 
62 BA 0014 BICB r] 
01 OA 2008 SF AA O014A 11$: BICW #8560" “AED ’ LAGS 
10 A3 94 0130 CLRB.—s TERM neha 
50 01 DO 0015 MOVL #1, RO” 
04 00156 RET 
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ZSBTTL ‘ACT_BOTTOM = move to end of ACL’ 
ROUTINE ACT_BOTTOM = 


'ee 
' 

FUNCTIONAL DESCRIPTION: 
This routine positions the cursor to the first character position 
ina —_ ACE at the end of the ACL. The screen is scrolled as 
necessary. 


CALLING SEQUENCE: 
ACT BOTTOM () 


INPUT PARAMETERS: 
none 

IMPLICIT INPUTS: 
OWN storage 

OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 
are updated, and the object's ACL is updated as necessary. 
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ve 000" ACT_BOTTOM = move to end of ACL 1$-sep-t944 #765345 PANT EDTesRe AEOMA TW Boost Page 307 


; 2938 3367 1 END; ! End of routine ACT_BOTTOM 


000C 00000 oat ee ve 


WOR Save R2,R3 3 3254 
0000' CF 9E 9002 MOVAB NEW_TEXT_LINE, R3 : 
0000" (CF 9E 0000 MOVAB AED"L_FLAGS, 2 ; 
FB 0000C CALLS #0, AED_REPSEGMENT + 3291 
p 001) MOVL RO, NEW-TEXT_LINE : 
6 14 TSTB AED_L_FCAGS + 3292 
p 19 0016 Biss ; 
EO 0001 BBS #5, AED_L_FLAGS+1, 1$ + 3293 
6 59 001 BBS #6, AED-L-FLAGS+1, 1$ + 3294 
00A0 31 000 W : 
0 Fe 0025 1$: CALLS #0, FINISH ACE + 3297 
01 A2 95 O002A TSTB © AED_L_FLAGS+1 : 3298 
10 18 900 D BGEQ $ ; 
04 €1 0002F C #4, AED_L_FLAGS+1, 2$ ; 3299 
63 00 Bo8 4 OVL wou text CINE, RO : 3302 
04 88 0003 BISB2 10(R0) ; 
02¢c4 C2 B84 00038 CLRW  AEO_W_TOTALSIZE + 3303 
40 8F 8A 0003F 28 BICB2 ; KED_L_FLAGS+1 + 3305 
02¢4 Ce BS 00044 TST AED! W_TOTACSIZE : 3306 
0 if 0048 BNEQ ; 
63 D O04, MOVL §§ NEW_TEXT_LINE, RO : 3307 
04 AO DO 0004D MOVL 4(RO), NEW TEXT_LINE 3 
00 FB 00051 3S: CALLS #0, AED COMPRESS : 3308 
02c4 C2 3¢C 00056 MOVZWL AED_W TOTALSIZE, -(SP) : 3309 
gi FS 0058 LLS. #1, “AED_UPDATEACL ; 
0 pO 00060 MOVL 0; AED"L Tus ; 
008¢ C2 8 0065 LBS  AED_L_STATUS, 7$ + 3310 
40 8F 88 OO06A BISB2 #647 RED L_FLAGS : 3313 
40 A2 DD 0006E PUSHL AED_L_FIRSTLINE : 3314 
01 FB 00071 CALLS #1, AED POSITION ; 
40 Ag DD 00076 PUSHL AOL FIRSTLINE : 3315 
01 FB 00079 CALLS #1, AED_COPSEGMENT ; 
40 A pO 007 MOVL  AED_L_FIRSTLINE. RO + 3317 
0080 C2 OE 0008 INSGUE AEDT"CURLINE, @4(RO) ; 
44 A2 D1 000 CMPL  AEDTL“LASTLINE, AED_L_FIRSTLINE : 3318 
06 12 0008D BNEQ 4§ : 
0089 ¢ H: 0 gr MOVAB AED_T_CURLINE, AED_L_LASTLINE ; 3319 
4 A p] 0 35 4$: cna AED-L-BEGINL INE , AED“L_FIRSTLINE ; 3320 
008 C2 9E 0009 MOVAB AED_T_CURLINE, AED_L_BEGINLINE : 3321 
0B0 (C2 9E OOOA2 5$ MOVAB AED"T"CURLINE. AED“L~FIRSTLINE ; 3 é 
40 A p 0 As CPL A DTLTFIRSTLINE, AEDIL_LASTLINE ; 
05 FI A BBC #5, AED_L_FLAGS, 6$ > 3324 
9 A 0008 BICB2 #32, AED C FLAGS > 3325 
E8 A3 D4 000B6 6$ CLR BUFFER INDEX : 3326 
oi 9 B9 MOV #1, AED_B_COLUMN : 3307 
0092 B BRW 9 5 8 
2080 er AA 000CO 7$: BICWw2 #8320, AED_L_FLAGS ; 
0 FB O00CS 8S: CALLS #0, AED_COMPRESS F 


LL 


2 
AEDSMAIN Re -1984 247: AX-11 Bliss-32 V4.0-742 Page 108 
voa~000 ACT_BOTTOM = move to end of ACL 1azgeen13RS $7:85:35 PARTE Oke saz baile s52 oe 385 
30 A2 9F OOOCA PUSHAB AFD LINETABLE ; 3337 
00906 CF 01 FB O00C CALLS #1, AED POSITION ; 
Bg 008 f OF D INSGUE AEO_T CORLINE, @AED_Q_LINETABLE+4 + 3338 
6 4 F OA D BISW2 #16418, AED_L/FLAGS : 3340 
008 C2 B84 000DD CLRW SEGMENT SIZE + 3341 
C4 «C2 B4 O00E CLRW AED W TOTALSIZE ; 
E8 AS D4 OO0E CLRL BUFFER INDEX $ 334 
20 A 01 90 Q00E MOVE #1, AED B COLUMN + 334 
5 0080 EC MOVAB AED_T_CORCINE, RO + 3344 
44 =O D F MOVL RO, -AED_L_LASTLINE : 
40 =A D FS MOVL RO, AED : FIRSTLINE ; 
OA A 8 0 £9 MOVW #1. 10(ROY : 3345 
3¢ A be FD CLARL AED_L_CURACE 5 228 
07 «Aa 95 or TSTB AEDIL-FLAGS+1 : 334 
40 18 001 BGEQ =s(9 ; 
00A8 ¢ 94 001 CLRB AED_B ACETYPE + 3350 
02 A2 BA 0109 BICB2 #8, ~AED_L_FLAGS+2 : 3351 
E8 A3 9F 0010D PUSHAB BUFFER INDEX 3 3352 
00006 CF 01 FB 0110 CALLS #1, AED SELECTFI : 
EC AS 0088 ce B0 oor4 OVW  AED_T_CORLINE+8, ECHO_DESC + 3353 
FO. A 0c4 C2 9E 00118 OVAB AED-T“CURLINE+20, ECHO_DESC+4 + 3354 
01 pb 001 1 PUSHL #1 : 3355 
7E 24 A2 9A 00123 MOVZBL AED_B LINE, =(SP) ; 
000000006 00 02 FB 00127 CALLS #2, SCRSSET_CURSOR : 
EC AS 9F OO12E PUSHAB ECHO _DESC + 3356 
00006 CF 01 FB 00131 CALLS #1, AED_PUTOUTPUT ; 
7E 0088 C2 3C 001 MOVZWL SEGMENT“SIZE, -(SP) : 3357 
6 D6 ba 198 INCL (SP) b 
7E 24 Ad 9A 001 MOVZBL AED_B_LINE, -(SP) ; 
000000006 00 02 FB O14) ALLS #2, “SCRSERASE_LINE ; 
20 A2 eB OA 01 81 00148 ADDB 1, BUFFER_INDEX, AED_B_COLUMN ; 3358 
01 A2 10 88 O14 1SB2 6, AED _L~FLAGS#1 : 3359 
7E 30 A2 9A 00152 9$ MOVZBL AED.B_COCUMN, -(SP) : 3361 
7E 4 A2 9A 00156 MOVZBL AED"B“LINE, -(SP) ; 
00006 CF 02 FB O015A CALLS #2, AED_SEf_CURSOR 3 
01 A2 2008 8F AA 0015F BicW2 #8200, AED_C_FLAGS+1 : 3363 
10 A3 94 00165 CLRB RM_CHAR : 3364 
50 01 v0 0168 MOVL , RO : 3365 
4 00168 RET : 3367 
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2 $ep-1984 23:47:14 AX-11 Bliss-32 V4. 
122880- 1382 #7 :$3:39 ACLEDT. SRCTAEDMA 
ZSBTTL_ ‘ACT _FIND_STR = locate specific string’ 
ROUTINE ACT_FIND_STR = 


lee 
i 
FUNCTIONAL DESCRIPTION: 


rate routine obtains the string to be searched for. If the search 
string is terminated by the ADVANCE action key. the geared is in 
the forward direction. If the segree »Steine s term neyes by the 
BACKUP action nee the search is in the backward direction. The 
screen is scrol +R as necessary to accomodate the next occurrance 
of the search string 


CALLING SEQUENCE: 
ACT_LFIND_STR () 


INPUT wren 
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i IMPLICIT yar ob 
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OUTPUT Bonet hatin 
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ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE errecrs: 
The Line segment table is updated as necessary, ACE Line pointers 
are updated, and the object's ACL is updated as necessary. 


BEGIN 
LOCAL 
STRING_ INDEX : VECTOR C1,WORD); ! Index into search string buffer 
AED_L Pines tage wt 604 pKEY = 0; 
Ht ERSSET 


PUTOUTPUT * Sl ecatbron ("Search string: ')); 
STRING NG,IN DEX = 0; 


BEGIN 
TERM_CHAR = 


AED_DECODEKEY_(); 
AED_C_FLAGSCAED V_GOLDKEY ='0; 
IF [TERM CHAR EGL~O THEN RETURN 1; 
IF :AED_C_FLAGSCAED_V_ACTIONKEY) 
OR TERA_CHAR EQL AED"C_CHAR_ESC 
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! End of routine ACT_FIND_STR 


ACT_FIND_STR = locate specific string 


20 SA 67 6E 69 72 74 73 20 68 63 72 61 


ACT_FIND_STR: 
“WORD 


SOMO MUINNDSOOMINOYFONONOTOFOOC S900 
DOOW— "UNO NOO™7 
OLN DOW TM > NVI 


OD 9 0 72D O 0 OM OBOTD TOTO 
OMNI = DO ON a OW POD £OI"DWO 


= MTS NINN = ONININIUIG 
DNA 8O PS NMS OS 


o~ 


ePSECT SPLITS,NOWRT,NOEXE,2 
ASCII \Search string: \ 
«BLK 1 


- LON 
»ADDRESS P.AAD 


-PSECT S$CODES,NOWRT,2 


0 Save R2,R3,R4,R5,R6,R7,RB 
MOVAB AED PUTOUTPUT, RB 
MOVAB SCRSERASE PAGE, R7 

v SCRSSET_CORSOR, R6 
MOVAB AED _L_FCAGS, R5 
MOV TERR THAR, R4 
BICB2 #8, KED_L’FLAGS+1 
PUSHL #1 
PUSHL gl 
CALLS #2, SCRSSET_CURSOR 
PUSHAB P. 

CALLS #1, AED_PUTOUTPUT 
CLAW STRING INDEX 
CALLS #0, AED_DECODEKEY 
MOVE RO. TERM CHAR 
BICB2 #8. AED_C_FLAGS+1 
MOVZBL TERM_CHAR, R2 
BEQL=s«8 

BBS #5, AED _L_FLAGS#2, 2$ 
CMPB eR. 

BNEQ 4 

CMPBséR2, #35 

BNEQ = 3 

PUSHL #1 

PUSHL #21 

CALLS #2, SCRSERASE_PAGE 
BRB 7 

CMPBsaR2, #41 

BNEQ 6 

TSTW STRING_INDEX 

BEQL $ 

DECW  STRING_INDEX 
PUSHAB P.AA 

CALLS #1, AED_PUTOUTPUT 
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AEDSMAIN Be s6p-1984 23:47:14  yAN-11_BLiss-32_v4-0-742 

v54~000 ACT_FIND_STR = locate specific string 12780871382 #7 593:35 ACLEDT.SRCIAEDMAIN.B32s1 
20 § 5 as cme , #32 :] 
61 8F 1 cee Re. #97 si 
f BLSSU) 5 a; 
ceca A O0re Gerry Se | 
64 ¢ 0008) UBB2 #32, TERM_CHAR $ 
pc Ad 1 5$: Vw = #1, ECHO_BESC ey 
EO AG 64 9 9 OVAB TERM_CHAR, ECHO_DESC+4 3 
DC AG OOF C PUSHAB ECHO DESC 2 | 
Q1 £8 0008F CALLS REO PUTOUTPUT 3 
¢ : MOVZWL STRING INDEX, R 3 
08 A440 9 MOVE TERM CRAR, SEARCH_STRINGCRO] 3 
B6 0009A INCW © STRING_INDEX 3 
1 9C BRB 1$ 3 
04 AG 33 BO QOO9E 68: MOVW  STRING_INDEX, SEARCH_SIZE 2 
61 DD 000A PUSHL #1 3 | 
15 DD OO0A4 PUSHL gt 3 | 
67 02 FB 000K CALLS #2, SCRSERASE_PAGE 3 
04 A4 B5 000A STW SEARCH SIZE | 
15 12 OOOAC BNEQ  9$ 3 
7E 0 Ad 3A OOOAE 78: MOVZBL AED_B_COLUMN, -(SP) 3 | 
7E 4 a5 9a 0008 MOVZBL AED-B“LINE, =(SP) 3 | 
6 O2 FB 00086 CALLS # strssef CURSOR 3 
01 A 2008 8F AA 0008 BICW2 #8200, AED_C_FLAGS+1 3 
64 94 000BF CLRB = TERM_CHAR 3 j 
NE 11 00c} gs: BRB 12$ 3; 
12 02 AS 05 £1 000c3 98: BBC #3, AED L FLAGS#2, 118 3 | 
0c 4 91 000¢ CMPB TERM_ CHAR; #" 3 j 
4 12 000CB BNEQ 10 3 i 
01 AS 1 BA 000cD BICB2 #1, AED_L_FLAGS#1 3 | 
0€ 64 91 00001 108:  CMPB = TERM_CHAR; #14 3 j 
4 18 00004 BNEQ 11 3 i 
01 AS 1 88 00006 BISB2 #1, AED_L_FLAGS+1 3 | 
01 AS 8 8A OOODA 11$:  BICB2 #8, AED-L-FLAGS+1 3 
64 05 90 0000 MOV = #3, TERA_CHAR 3 i 
50 1 pO QO0ET 128: MovL AT, :y 
ty 


; Routine Size: 229 bytes, Routine Base: S$CODE$ + 207A 
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vOus000" ACT_FIND_NXT = locate next occurrance of string 1-0-1964 $7 :93:36 Atieor’ sresa omAt 


H 1 SSBTTL. ‘ACT_FIND_NXT = Locate next occurrance of string’ 

: ° 5 ! ROUTINE ACT_FIND_AXT = 

; 189 1 !4¢ 

3 4 3 1! 

: § rt ! FUNCTIONAL DESCRIPTION: 

; bez 491 1! ey routine sserches for the next occurrence of the selected search 
; 3065 136 1 i ase ai direction of the search depends of the state of the 
Bh si 

; 8 198 1 | CALLING SEQUENCE: 

3 4 ii ACT _F IND “NXT () 

: 3079 i 5 pane PARAMETERS : 

Be BR 

3 3074 1 1°! IMPLICIT INPUTS: 

; Be 206 ’ OWN storage 

; O79 504 1 | ouTPUT PARAMETERS : 

Be Be 

: 3080 507 1! IMPLICIT gUTPUTS: 

Bh BT 

; O88 510 1 | ROUTINE VALUE: 

3 3084 511 1 | 1 if successful 

3 Bae 21¢ : error status otherwise 

; ate 1! SIDE EFFECTS: 

3 515 1! he Line segment table is updated as necessary, ACE Line pointers 

3 218 ' os updated, and the object's ACL is updated as necessary. 

| Bio 

; 220 2 BEGIN 

; 2 é LOCAL 

3 5 START_SEGMENT : REF SBBLOCK ! Line where search started 
3 524 SEARCA_BEGIN : VECTOR fi. WORD}. ! Where to start the search 
3 525 SEARCH_END : VECTOR £1.WORD ! Where the search ends 

3 5 $ STRING. LOCATION, ! Lecot ten of the found gtr ing or 0 
3 5 ! String found in new ACE fla 
: 5 3 MATCH. SEGMENT : REF SBBLOCK; ! Address ine that matche 
; ; O 2 IFf-.SEARCH_SIZE EQL 0 

3 1 THEN 

; 2 : AED_L_FLA ACSF AED -V-8 LDKEY) = 0; 

; 4 AED-L-FLAGSCAED_V TIONKEY] = 0; 

3 535 TERA_CHAR = 0; ~ 

3 pe tua ; 

; : 1F NOT “AED_L_FLAGSCAED_V_BACKWARD) 

; 540 BEGIN 
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2 
ACT_FIND_NXT = locate next occurrance of string 13-$e0-1984 $7 503:36 ACL EDT SReTAE OMA 


! See if the specified string is within the current Line. 


SEARCH_BEGIN = .BUFFER INDEX + ,SEARCH_SIZE; 
IF .SEARCH_BEGIN GEQ .SEGMENT Size 
OR .SEARCH-BEGIN + .SEARCH_SIZE GTR .SEGMENT_SIZE 
THEN STRING_LOCATION = 0 
ELSE STRING-LOCATION = CHSFIND_SUB (.SEGMENT_SIZE = .SEARCH BEGIN, 
INPUT _BUFFERL.SEARCH_BEGIN 
»SEARTH_SIZE, SEARCH-STRINGS; 
IF .STRING_LOCATION NEQ 0 
THEN 
BEGIN 
BUFFER INDEX = .STRING_LOCATION = INPUT_BUFFERLOJ; 
AED_6 COLUMN = .BUFFER-INDEX ¢ 1; 
AED-SET_CURSOR (.AED B-LINE, ,AED_B COLUMN); 
AED-L_FCAGSLAED_V_GOCDREY) = 0; 
AED“L~FLAGSLAED-V-ACTIONKEY) = 0; 
TERA CHAR = 0; 


Wr —OOOnNOou 


! The ogeg ities search string is not within the current Line. Update the 
! text ACE with the current line segment. Then loop through the remaining 
! Line segments in the Line table looking for the search string. If it is 
! found peyene the end of the current ACE, update the ACL with the current 
! ACE. Otherwise, simply set the various pointers to point to the Line 

! segment where the search string was found. 


SEGMENT (); 
EXT ; 


_ . 1] = 0; 
MATCH-SEGMENT =~.NEW_ TEXT _LINECLINE_L_FLINK); 
NEW ATE = .AED_L_LASTLINE EQL .NEW_TERT_LINE; 
SEARCH_BEGIN ="0; 
UNTIL TMATCH_SEGMENT EQLA AED_Q_LINETABLECLINE_L_FLINK] 


BEGIN 
STRING_LOCATION = CHSFIND_SUB (.MATCH SEGMENTCLINE_W_SIZE] - 


“SEA GIN, 

VECTOR CMATCH. SEGMENTCLINE_T_TEXT), 
SEARCH BEGIN; ,BYTET, 

~SEARCH_SIZE, SEARCH_STRING); 


SSSI NSS SISSIES PAA AAA MMIII BP PPP PEE 


IF .STRING_LOCATION NEQ 0 


weal ab sb Ah Ab Ab Ab Ab ab Ab Ab Ad dh db dh dh db db ebb edh db dh dh sh al sl alah ah ab al ahah esl aleal 
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EGIN 
8 IF .NEW_ACE 

AND (.AED_L_FLAGSCAED_V_MODIFIED) 

OR .REB_L_FLAGS RED _V INSERT) 

3 S OR :AED“L~FLAGSLAED-V~INSERTEXT)) 
38 BEGIN 
94 FINISH_ACE () 
95 IF .AED_L FLAGSCAED_V_PROMPT) 
% AND .AED_C_FLAGSCAED_0_FIRSTCHAR) 
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ACT_FIND_NXT = Locate next occurrance of string 1$-se0-1984 $9 :03:36 ACLEDT SR SSacomAtiee $2, sont 5 


THEN AED_L PEGIN, Ime = AEDT CURL IWECL INE LLFLINK); 
RS 


5 H 
If AED C Fi NE EQL gRATCH SEG ; 
EN AED rf chgttine™ E rige Orie LINE_L_FLINKI; : 
; Th Ae AED ce Epa NE = “AbD MT eon INE LINE FL INK): 
AED bacy eAED_L_FIRSTCINELLIN 8 ; 
BUFF % NOE rR THC. “AREATION = MATCA SE NARENT CLINE. T_TEXT); : 
? B COLUMN = .BUFFERTINDEX + 1; ; 
AED-SET CURSOR (.AED 6 eb INE. AEb_B_COLUMN) ; : 
i AED“L_FCAGSLAED_V_GOCDREY) = 0; : 
665 AED“L“FLAGSLAED-V-ACTIONKEY) = 0; : 
068 TERM_CHAR = 0; : 
a 1; : 
IF AED LOLASTLINE EQL MATCH prQRENT TH NEWACE = 1; : 
MATCH SEGMENT = .MATCH_SEGMENTCLINE_L_F inks : 
SEARCABEGIN = 0; : 
END; ‘ 
END ; 
ELSE 
BEGIN 
NEW. TEXT LINE = AED REPSEGMENT (); 
START_SEGMENT = 


MATCH_SEGMENT = fit onrext Fictagti ane, L_FLINK]; 
AED_L FLAGS AED_V_ERD 
AED"L~FLAGSLAED_V Bie = 0; 
NEW-ACE = 0; 
SEARCH “END = .BUFFER_IND 
UNTIL 7MATCH_ SEGMENT Sith “hev. Q_LINETABLECLINE_L_FLINK) 
BEGIN 
STRING_LOCATION = CHSFIND_SUB (. ~SEARCH _END, MATCH SEGMENTCLINE T_TEXT), 


ARCHSIZE, SEARTH_STRING); 
IF .STRING_LOCATION NEQ 0 


~ 
WN —OODONOUS WN OO 
SAA AA AAA NINA APA PAD IP AD IES BB BS NNN NNN NAMIE BB DDI 


pe eee SIA AAA AAAAA AMM BPEL PEE EEE 


689 THEN 
90 BEGIN 
691 IF ~NEW_ACE 

(AED L_FLAGSCAED_V_MODIF IED] 

-AEB_L_FLAGSCAEG_V_INSERTJ 
94 oR -AED~L~FLAGSLAED ~V~ INSERTEXTJ) 
695 THEN 
BEGIN 

69 FINISH hte (discs soe - 
6 st Lf FLAGS FED. ‘or FIRSTCHAR] 
709 BEGIN 
7 3 NEW_TEXT LINECLINE V_DUMMY) = 1; 
, AED” “w_TOTALSIZE = 0;~ 
705 IF .AED W_TOTALSIZE EQL 0 
7 THEN NEG. Text bine a ohEW. TEXT_LINECLINE_L_FLINK); 
7 AED_COMPRESS 
7 AED"L_STATUS = AED_UPDATEACL (.AED_W_TOTALSIZE); 
7 IF ROT .A ve STATOS 
710 THEN 
71 BEGIN 
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14-52 AX-11 Bliss-32 V4.0-74 Pp 1 AED 
ACT_FIND_NXT = Locate next occurrance of string 12286871382 73 $5: 38 ACLEDT’ SRESAEDMAIN *BS3e1 a9e 388 v4 


7 THEN AED L_BEGINLINE = AED, T T CURL INECL INE, LFLINK; ; 
7 IF DC FIRSTLINE EQ GMENT 33 

i nell ABDC EIASTLINE’= ‘anette LINE_L_FLINK; : 
77 THEN AED_C AS LINE = AEDT COR INE LINE L gEb INK: : 2 

ie f AED b CURACE = .AED rhe’ LOCATION LINE_L_ BINA : 
775 BUFFER_INDEX = .STRING_ ION = MATCA SEGMENT ELINE.. T_TEXT); ; 3 

£76 AED_B COLUMN = BUFFERS T DEX + ; 

77 AED“SET_CURSOR (.AED B~ LINE, acb _B_COLUMN) ; ; 

778 AED“L_FCAGSLAED_V_GOCDREY] = 0; ; 

779 7 AED-L“FLAGSLAED_V-ACTIONKEY) = 0; : 
780 f TERM _CHAR = 0; ; 2 

f 1 RETURN 1; : 
7 § § END; : 2 
784 4 END; ‘2 
785 & IF .AED_L_FIRSTLINE EQL .MATCH SEGHENT THEN, NeW LACE = 1; re | 

786 4 MATCH SEGREN ‘sf »MATCH_SEGMENTCLINE BL INK : 

i f 4 SEARCR_END = MATCH_SEGMENT LINE. uestze ; 

789 END; : 

790 2 SIGNAL (AED$_NOTFOUND); ; 

791 2 AED_COPSEGMERT (.START SEGMENT); : 

79 INSGUE (AED T_CURLINECCINE _L_FLINK], .START_SEGMENTCLINE_L_BLINK]); : 

79 IF .AED_L_BEGINLINE EQL .START_ SEGMENT THEN-AED_L -BEGINLINE = AED_T_CURLINECLINE_L_FLINK]; : 

794 2 IF .AEDIL“FIRSTLINE EQL .START-SEGMENT THEN AED t “FIRSTLINE = AED-T~CURLINELLINE-L-FLINKJ; 3 

795 2 IF .AEDL-LASTLINE EQL .START_SEGMENT THEN AED_C_CASTLINE = AED_T~CORLINECLINE_L-FCINKJ; 3 

7 AED_L_FCAGSCAED_V_ACERROR] = T; 3 

79 AED"L"FLAGSLAED-V-GOLDKEY] = 0 : 

798 2 AED-L-FLAGSCAED-V—ACTIONKEY) = 0; : 

799 2 TERM CHAR = 0; : 

800 RETURN 1; : 

802 1 END; ! End of routine ACT_FIND_NXT ; 

OFFC 00000 ACT_FIND_NXT: : 

“WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 > 3485 3 

5B 0000' CF 9E 0000 MOVAB NEW_TEXT LINE, Ril ; ; 

SA 0000" CF 9€ 0000 MOVAB AED"L_FIRSTLINE, R10 ; : 

54 14 Ap ant MOVZWL migeteg R4 : 3530 3 

049% 4 91 BRW 70$ : : 

03 C1 ont 5 0 1$: BLBC aR L_FLAGS+1, 2$ : 3538 : 

57 E8 ap 54 Al o If 2s: ADDW3 BUFFER INDEX, SEARCH_BEGIN : 3 44 3 

5 7 3c MOVZWL SEARCH EGIN, : 3545 3 

31 78 AA ¢ 9 4 MOVZWL SEGRENT. Size: R1 : : 

1 50 p 8 CMPL = RO, ; 3 

9 ; B BGEQ 3$ : : 

52 50 4 C D ADDL3 RG, RO, R2 ; 3546 : 

1 2 Db} 1 CMPL R2,R ; 3 

4 BLEQ ; : 

2 dé 3$: CLRL § STRING_LOCATION : 3547 : 
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AEDSMAIN Re =1984 23:47:14 AX-11 Bliss-32 V4.0-742 Page 121 A 
vOe~000 ACT_FIND_NXT = locate next occurrance of string 12-808-1 382 $7 533:36 ERCLEDT-SRe AEDMAIN.B32;1 ’ 3} v6 
54 04 =A 107 298:  CMPL D_L_LASTLINE, MATCH_SEGMENT : 3658 : 
g 108 BEQL $ : ; 
o1 1D BRW $ : ; 
191 31 OO1E 30 :  BRW : ; 
54 04 AA : IE 1$: cMPL aaah MATCH_SEGMENT + 3669 : 
58 1 00 001E9 MOVL #1, NEW_ACE : ; 
4 4 p 1EC 328 MOVL (MATCH_SEGMENT), MATCH_SEGMENT + 3670 ; 
FE 1 OO1EF BRW 9 + 3671 ; 
00006 CF Q F IF 33$ CALLS #0, AED_REPSEGMENT + 3676 ; 
B DO OO1F MOVL RO, NEWT TEXT LINE : ; 
6 B DO OOIFA MOVL NEW_TEXT_LINE, START_SEGMENT 3 3677 : 
4 B DO 001FD MOVL NEW-TEXT“LINE, MATCH-SEGMENT : 3678 ; 
CO AA 4020 8F AA 00200 BICW2 #16216, AED_L_FLAGS : 3680 ; 
8 D4 00 CLRL NEW_ACE + 3681 ; 
59 E8 AB 80 020 MOVW § BUFFER INDEX, SEARCH_END : 36 : ; 
50 FO AA ‘ 020C 34$: MOVAB AED_O_CINETABLE, RO : 368 ; 
50 54 OD 0 1 CMPL § MATCHSEGMENT, RO : ; 
03 1 1 BNEG 35$ : 3 
0198 021 BRW 63$ : : 
55 14 Ap C 00218 35$: MOVZWL SEARCH SIZE, R5 t 3687 : 
14 Ab 59 18 «AB 55 39 0021C¢ MATCHC RS, SEARCH STRING, SEARCH_END, - : 3686 ; 
gO (MATCH_SEGMENT) : 3 
03 13 99 3 BEQL $ : : 
53 33 DO 00225 MOVL RS, R3 : ; 
53 5 C2 00228 368 SUBL2 5, R3 : 3 
52 53 00 00228 MOVL 3, STRING_LOCATION : ; 
03 } 0 E BNEQ 37$ + 3688 3 
0160 31 00 BRW 61$ : ; 
03 38 8 00233 378: BLBS NEW_ACE. 39$ + 3691 : 
0095 31 00 8$: BRW 48$ : : 
CO AA 95 00239 39$:  TSTB AED _L_FLAGS + 3692 ; 
OA 19 0023¢ BiLSS 40$ ; : 
05 C1 AA 05 €0 6 : BBS #5, AED_L_FLAGS+1, 40$ + 3693 ; 
EE C1 AA 06 E1 0024 BBC 6; AED"L-FLAGS+1, 38$ : 3694 ; 
0000v CF 0 Fe 0248 40$: CALLS #0, FINTSA_ACE + 3697 ; 
C1 AA 95 00240 TSTB = AED_L_FLAGS+#1 ; 3698 F 
10 18 00 2 BGEQ 41$ ; : 
0B C1 AA 04 €1 00 BBC #4, AED_L_FLAGS+1, 41$ : 3699 : 
50 68 BO 025 MOVL NEW TEXT CINE, RO : 3702 : 
0A AO 4 0 2A BISB2 #4,710(RO) ; : 
0284 CA B4 0 CLRW AED_W_TOTALSIZE 3 3703 : 
84 cA BS 62 41S: Ist AED-W_TOTALSIZE ; 3705 
8 *8 6 § b MOVL § @NEW_TEXT_LINE, NEW_TEXT_LINE + 3706 
00006 ¢F 0 Fe 42$: CALLS #0, RED COMPRESS : 3707 
z 0284 CA 3C MOVZWL AoW TOTALSIZE, -(SP) : 3708 
00006 CF gi F 7 CALLS #1, ~AED_UPDATEACL F 
4C AA 0 D 7A VL —- RO, AEDTL STATUS ; 
6 4 AA F 7 BLBS AEO LL STATUS, 47S : 3709 
co 40 «BF BISB2 #647 KED_L_FLAGS : 371 
A DD PUSHL AED_L_FIRSTLINE : 371 
00006 CF 1 FB 9 CALLS #1, AED POSITION ; 
A 0D PUSHL Aro FIRSTLINE > 3714 
00006 cf 1 FB CALLS #1, AED. COPSEGMENT ; 
0 6A p 9 MOVL  AEO_L_FIRSTLINE, RO : 3716 
04 80 70 AA OE 00298 INSQUE AED"T"CURLINE, @4(RO) : 
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6A 04 AA 9D cup AGD_L_LASTLINE, AED_L_F IRSTLINE : 3717 
04 AA 70 AA hs MOVAB AED_T_CURLINE, AED_L_LASTLINE ; 371 
6A 0 AA AB 43$ CPL AED-LIBEGINLINE. AED-L_FIRSTLIN : 371 
08 AA 70 AA A MOVAB AED_T_CURLINE, AED_L_BEGINLINE + 3720 
6A 70 «AA BS 44$ MOVAB AED-T“CURLINE, AED-L~FIRSTLINE + 3721 
04 AA AO B CMPL AED-LFIRSTLINE, AED“L_LASTLINE : 3722 
} BB BNEG  46$ : 
FE BD 45$ BRW 21$ ; 
FB CO AA mY fi c 46$ BBC a3 AED_L_FLAGS, 45$ t 3723 
cO AA 2080 BF AA 002CB 47$ BICw2 $080, AED_L_FLAGS : 3733 
af 9 80 ¢ 4s MOV SEARCH END SEARCH_BEGIN + 3735 
7 16 ABA Di 49$ SUBW2  SEARCH"SIZE, SEARCA_BEGIN : 3739 
50 5 3 02D MOVZWL SEARCH“BEGIN, RO + 3740 
51 9 ; 0208 MOVZWL SEARCH END, a1 ; 
51 0 0208 SUBL2 RO, RI : 
55 14 AB g 0 DE MOVZWL SEARCH SIZE, RS + 3743 
14 A044 51 18 «AB 5 002E MATCHC RS, SEARCH STRING, R1, 20(RO)- : 3742 
CATCH SEGRENT : 
03 13 0O2EA BEQL $ ; 
53 5 0 O02EC MOVL RS, R3 ; 
53 55 C2 OOCEF 50S:  SUBL2 5. R ; 
52 53 OD F MOVL 3. STRING_LOCATION ; 
pA 13 O02F BeQL 49§ + 3744 
04 AA 4 DO 002F MOVL § MATCH_SEGMENT, AED_L_LASTLINE : 3747 
6A 54 DO O02FB MOVL § MATCH-SEGMENT, AED-L~FIRSTLINE ; 
50 6A DO OO2FE MOVL AED L-FIRSTLINE, R : 3748 
0284 CA 08 Aad B80 00 ot MOVW  8(RO)> AED W TOTALSIZE : 
50 6A D0 0307 MOVL AED " FIRSTLINE, RO + 3749 
OF OA AO E 00 OA 51$:  BLBS  0(ROY, 52$ : 
6A 04 AO DO 0030 MOVL 4(RO), AED L_FIRSTLINE : 3752 
50 6A 00 0031 MOVL AED L’FIRSTLINE, RO : 375 
0284 CA 08 AO AO 0031 ADDW2 (RO): AED_W_TOTALSIZE F 
ED 11 00318 BRB 1$ : 3749 
50 04 AA 00 00310 528: MOVL AED L_LASTLINE, RO : 3757 
04 AA 60 D 6 \ $:  MOVL (ROT, “AED_L_LASTLINE ; 
50 06 AA OD MOVL AED (_LASTL : 3758 
0284 CA 08 AO AO 00329 ADDW2 (RO) AED W_TOTALSIZE ; 
9 OA A f 0 F BLBS  10(ROS, + 3760 
1 FO AA F 3 MOVAB AED_Q LINETABLE, R1 : 3761 
‘ ae 7 
0284 CA 08 A iB 54$: SUBW2 gino». AED_W_TOTALSIZE : 376 
04 AA 4 ao D 4 MOVL 4(RO), AED“L~LASTLINE : 376 
54 DD 0034 PUSHL MATCH’ SEGMENT : 3764 
00006 CF 1 FB 00349 CALLS #1, AED POSITION ; 
4 DD 0034 PUSHL MATCH SEGMENT > 3765 
00006 CF 1 FB CALLS #1, AED COPSEGMENT : 
04 84 70 AA OF INSQUE AE6_T_CORLINE. @4(MATCH SEGMENT) : 3767 
4 08 AA pi A cMPL ADIL BEGINLINE, MATCH_ SEGMENT : 3768 
08 AA 70 AA 9 MOVAB AED_T_CURLINE, AED_L_BEGINLINE > 3769 
54 A 0} 55$ cmPL AEDLFIRSTLINE, MATCH_SEGMENT ; 3770 
6A 70 AA 9E 0036A MOVAB AED_T_CURLINE, AED_L_FIRSTLINE : 3771 
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; Routine Size: 1096 bytes, Routine Base: S$CODE$ + 215F 


54 04 AA : 568: wet i LLLASTLINE, MATCH_SEGMENT ; 3772 : 
04 AA 70 AA 7$:  MOVAB T_CURLINE AED_L_LASTLINE $ 3773 ; 
FCA oc 20 D ges vt Abe Fi RCE EORACE .an : 
53 52 4 SUBL3 MATCH_SE create S STRING LOCATION, R3 ; 3775 : 
FB A eC AS OF ROVAR vue FFER_ INDE 3 ; 
EO AA E8 AB 01 A 598 ADDBS # R INDE AED_8_ COLUMN i 37? ; 
7E EO AA QA 60$:  MOVZBL AED_B (§P) : 377 ; 
7E E4 AA 9A 00394 MOVIBL AED “8 f <(5p) ; ; 
00006 CF 00g 58 90598 CALLS” #2, “AEDS SEf_CURSOR : 3778 : 
54 4 0 AD 61% CMPL AED_L_FIRSTLINE, MATCH_SEGMENT : 3785 ; 
; vate) ia cr oe : i 
gt O4 AS DO OOSAB 628: HOVE G(AATCH-SEGMENT) , MATCH. SEGMENT ; 3786 : 
59 8 ets 8° 0 A Ovi gig SEGMENT). SEARCA_END i 5787 ; 
16 cO AA 05 £1 00383 638: BBC #3, AED_L_FLAGS, 648 ; 3790 : 
01 DD 0038 PUSHL : : 
15 DD 003BA PUSHL a 1 : ; 
000000006 00 02 FB 0038 CALLS , SCRSERASE_PAGE ; : 
DD 003c PUSHL i ; ; 
15 0D p PUSHL HS : ; 
000000006 00 O2 FB 005¢ CALLS #2, SCRSSET_ CURSOR : ; 
000000006 8F 0D OO3CE 648 PUSHL EDs NO TFOOND ; : 
ae 03 EY 00308 sac i HED. ot LAGS 65$ 
7E EO AA 9A 00360 MOVZBL < (SP) : ; 
000000006 66 es 0 FB 0088 CALLS N: Budiey CURSOR : : 
| 00000000+ 8F 08 6 Br 65s: TsTL Be <ieD$ NOT FOUNDE?> : : 
00000000" 8F D4 AA 03 0 60 a3? CHPZV i, #3, AED_L_WORSTERR, #<AEDS_NOTFOUNDE7> ; ; 
D4 AA 000000006 BF D0 00403 MOVL  #AEDS_NOTFOUND, AED_L_WORSTERR ; : 
00006 CF 3f Fo oocop ee EATS BI AED COPSEGMENT ‘Babe : 
04 86 ZO AA OF 0041 INSQUE Abt _CORLINE, @4(START_SEGMENT) ; 379 3 
6 08 AA D1 00417 cHPL AEA BEGINLINE, START_SEGMENT ; 379 ; 
AA 70 AA oe 1 MOVAB AED_T_CURLINE, AED_L_BEGINLINE ; ; 
. # 6A pt 2 ; 67$ cMPL AE DIL FIRSTLINE, START _SEGMENT ; 37% ; 
A 70 AA 9E 006 MOVAB AED_T_CURLINE, AED_L_FIRSTLINE ; 3 
6 06 AA D1 004¢B 68S: == CHPL” AED AL “CASTLINE, “START. SEGMENT ; 3795 ; 
04 AA 70 AA oF 1 MOV AED_T_CURLINE, AED_L_LASTLINE ; ; 
CO 4 F 436 698 b1s8¢ #64- RED _L_FLAGS : 37 ; 
C1 AA 200 F AA 0$ BiCw2 #8200, AEDL_FLAGS+1 ; 379 3 
50 0 OF 60 docee she KM Ca £3400 : 
be O04e? RET F i $802 : 
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3 1 2SBTTL ‘ACT_ADV_FIELD = advance to the next field‘ 
ROUTINE ACT_ADV_FIELD = 


oe 


i 
p POR Tee, DESCRIPTION: 


tots routine moves the cursor to the steiten | of the next major 

field or snaerse the text for the first stee n the next major 
field depend on the state of the PROMPT f The cursor is 
left positioned to the end of the selected He 4. 


{| CALLING SEQUENCE : 
ACT_ADV FIELD Q) 


INPUT PARAMETERS: 
none 


IMPLICIT yrtote 
OWN storage 


{ output rn reves 
no 
wien ees 


{ ROUTINE VALUE : 
1 if successful 
error status otherwise 


i SIDE errects: 
he Line segment table is updated as necessary, ACE Line pointers 
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19 be updated, and the object's ACL is updated as necessary. 
j 
18 
ai3 be BEGIN 
16 IF .AED_L_FLAGSCAED_V_OPENUIC) 
tlh be THEN ' 
19 LAGSCAED_V_ACERROR] = 1; 
0 S C (A C); 
i AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
4 § 48 AED-L-FLAGSCAED_V_ACTIONK KEY) = 0; 
G TERA C = 0; ~ 
4 50 RETURN 1; 
5 2) a 
$ 26 BEGIN 
4 33 UY wor -AED_L_FLAGSCAED_V_NOITEMSEL) 
28 "BEGIN 
1 5 IF “Gurren INDEX GTR O 
§ 28 AND ( iheo B_ACETYPE EQL ACESC_DIRDEF 
3 5 -AED“B_FIELD LSS 5 
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! End of routine ACT_ADV_FIELD 
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3 
vou 000" ACT_ADV_FIELD = advance to the next field Hat TEL Ser Me Rta Sha LPT SHE 


1 
1 
DD PUSHL @# ; 
0D PUSHE #21 ; 
rs} FB CALLS #2, SCRSSET_CURSOR ; 
DD 1$: PUSHL R ; 
000000006 09 Fe A CALLS #1, LIBSSIGNAL : 
08 6 4 BBC #3, AED_L FLAGS, 2$ ; 
E 30 AS 9a 0004 MOVZBL AEO_B_COLOMN, -(SP) 3 
i * 63 Fe 0006 OATS: MO TSCRSSET CURSOR 
00000000* BF 08 $ 2$: ist fcheDS BADUTCL?S ; 
00000000" 8F 16 «AB 03 3 iB $ CMP ZV #0, #3, AED_L_WORSTERR, #<AED$_BADUICE7> 3 
14 «AB 6 p MOVL 6, AED_L_WORSTERR 33 
009F 31 00068 3$: BRW 1 ; 
6A 02 a3 03 E 6 4$: BBS #3, AED_L_FLAGS+2, 10$ ; 
50 64 f Rov FFER_INDEX, RO : 
09 008 cS 93 £3 CPB AED_B_ACETYPE, #9 : 
05 0090 i 4 7¢ CPB AED_B_FIELD, #5 33 
06 0090 ¢3 91 83 5$: CMPB  s AED_B_FIELD, #6 ; : 
DE 1€ 00088 6$: BGEQU ; 
28 00c3 c38y 4 ben a NPUT_BUFFER-1CRO], #43 : 
00¢3 ¢340 ‘ #6 0092 move #44, INPUT_BUFFER-1CRO) ; ; 
U : 
18 «A 0 D4 DO09A 7S: CMPL RO, AED_L_PAGEWIDTH ; 
08 9 0095 BLSS 8S 3 
E 7C OOOA CLRQ = =(SP) ; 
7E D4 O00A2 CLRL = = (SP) ; 
54 DD O00A4 PUSHL 4 ; 
00006 cf 04 FB OO0A6 CALLS #4, AED _SEGSPLIT ; 
00c4 C3 9E O00AB 8S: MOVAB INPUT BOFFER, RO : 3 
00 B44 $c 9 B MOVB #44, GBUFFER_INDEXCROJ 3 
04 A4 1 : B MOVW #1, ECHO_DESC ; 
8 Ab 0 8440 9E 00089 MOVAB  @BUFFER_INDEXCROJ, ECHO_DESC+4 3 
4 Ad OF OOOBF PUSHAB ECHO DESC : 
00006 CF 04 FB 000C CALLS #1, KED_PUTOUTPUT 3 
0088 ¢3 86 000C NCW SEGMENT"SIZE 73 
64 6 00¢B INCL BUFFER_TNDEX 3 
20 «Ad ¢ INCB. AED_68 COLUMN : 
4 A3 A 00000 9$: BICB2 #8, ~AED_L_FLAGS+1 3 
8 Ab 0 00004 MOVB #8. TERA CHAR : 
11 00008 BRB 14§ 3 
52 4 DO OOODA 108 MOVL §§ BUFFER_INDEX, R2 : 
52 0088 C3 1 FD DO0DD 11$ CMPZ2vV #0, #18, SEGMENT_SIZE., R2 : 
DO0ES BLEQ 3s 12 3 
; DD O00E PUSHL R ; 
00006 cf 1 FB DOOE CALLS #1, AED_SELECTFIELD : 
2 64 DOOE VL BUFFER INDEX, R 3 
2c 00C4 C348 D00F MPB INPUT BUFFERER2I, #44 3 
20 a3 $4 5 OOF 12% ADDB3 #1, BUFFER_INDEX, AED_B_COLUMN : 
E 30 AS 9A VZBL AE6_B_COLUAN, -(SP) : 
7E 4 A’ 9A 0010 MOVZBL AEDB"LINE, (SP) ; 


von 000" ACT_ADV_FIELD = advance to the next field 1}-$e0- 138% $9593:36 ACLeDT sre AESMALeB S341 
ats a 2008 oF AA a 138: bits #8500, RED _C-FLAGS#1 


50 01 00 
4 


1135 148: AOVE Her niu 
116 RET 


; Routine Size: 279 bytes, Routine Base: S$CODE$ + 25A7 


3 

DSMAIN . ep-1984 23:47: AX-11 Bliss-32 V4.0-742 Pa 8 
von ACT_SEL_FIELD = select the next field Vargee713Re FFSSI3S «| HARTER Ok deg a Be Nt 8 ese, oe 385 
3 1 ZSBTTL ‘ACT ibe FIELD = select the next field‘ 
ROUTINE ACT_SEL_FIELD = 
; 7 i++ 
; 3 | | FUNCTIONAL DESCRIPTION: 
; § 1/ This routine mover the cursor to the pograntne of the next field or 
3 3 1! inserts the text for the first item in the next field depending on 
3 1! the state of the PROMPT flag. The cursor is left positioned to the 
3 5 Biy 1 ; end of the selected field. 
; 916 i i CALLING SEQUENCE: 
3 ae } ; ACT _SEL_FIELD () 
; 915 1 | INPUT PARAMETERS: 
Bo By] se 
: 349 918 1! IMPLICIT INPUTS: 
: 33 333 } : storage 
; 496 921 1 | OUTPUT PARAMETERS: 
PO Sa BT atten. 
; 199 924 1 | IMPLICIT OUTPUTS: 
3 200 , 5 ' none 
; 20¢ 9 3 1 | ROUTINE VALUE: 
3; 350 9 8 1! 1 if successful 
3 ape M , ! error status otherwise 
; 206 931 1 i SIDE EFFECTS: 
3; 350 9 § 1! The Line segment table is updated as necessary, ACE line pointers 
3; 3508 9 1! are updated, and the object's ACL is updated as necessary. 
; 310 983 1 i 
> 351 93% 1— 
3 21§ , $ BEGIN 
: az 9 5 IF .AED_L_FLAGSCAED_V_OPENUIC) 
3 $17 Bee THEN ; 
; 19 948 AED._L_FLAGSCAED_V_ACERROR] = 1; 
; 218 94 SIGRAC (AED$_BABUTC); 
> 351 944 AED_L_FLAGSCAED_V_GOLDKEY) = 0; 
3; 35 945 AED_L_FLAGSLAED_V_ACTIONKEY] = 0; 
3; 35 366 TERA _C = 0; 
3 4 § RS ee iuae 1; 
3 3524 94 ELSE 
3 5 95 BEGIN 
; $ +3 If .BUFFER_INDEX LSS .SEGMENT SIZE 
3 , ¢ ald »AEB_L_FLAGS AED_V_NOITEMSEL] 
; 3 984 BEGIN 
HY 955 4 AED_L_FLAGSCAED_V_FIRSTCHAR] = 0; 
3 1 956 4 AED-SELECTFIELD™ (BUFFER_INDEX); 


; 
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! End of routine ACT_SEL_FIELD 
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Ht 
age SCRSERASE _PAGE 


#21 
i. SCRSSET_CURSOR 


R 
+3" AED TL ELAGS 28 
AEb_B_COLOMN, -(SP 
* “Bene ae 
egies _BADUTC&7> 

. #3, AED_L_WORSTERR, #<AED$_BADUIC&7> 
R5, AED_L_WORSTERR 

, #16, SEGMENT_SIZE, BUFFER_INDEX 


AED_L_FLAGS#2, 6$ 
; 6, AED_C_FLAGS+{ 


#1, AED_SELECTFIELD 


; 3 ; 4 IFN NOT .AED_L_FLAGSCAED_V_NOITEMSELJ 
; "BEGIN 
3 3535 CHO_DESCEDSC _LENGTH] = “AEDT CURLINEEL INE 
; CHO DESC Ds¢ A-POINTER] = AED-T"CURLINELLINE 
; SCRSSET CURSOR %.AED 6 LINE, 13; 
; 36 UTOUTPUT cECHO BESC); 
: 335 ses ; SCRSERAS WLINE (.AEO_B_LINE, .SEGMENT_SIZE + 1); 
; re 6 4 AED_6 COLUMN = .BUFFER_INDEX ¢ 
; if 96 AED "SET _CURSOR (,AED_B"LINE, * tb B_ COLUMN) 
: 354 36 END; 
: 3545 9 AED_L_FLAGS AED _V V_GOLDKEY] = 0; 
; 46 97 AED=L=FLAGSLAED_V_ACTIONKEY] = 0; 
: 354 976 TERA CHAR = 0; 
; 48 97 RETURN 1; 
: 354 974 
3; 3550 975 END; 
003c 00000 ACT SEL_FIELD: 
55 990000006 af D0 90002 MOVL 
4 000000006 00 9€ 000 MOVAB 
33 9000" CF 9E 0001 MOVAB 
2 000" CF 9€ 0001 MOVAB 
4c 08 A2 7 OO1A BLBC 
62 4 a 8 O01 BISB2 
12 6 3 £1 000 C 
01 DD 000 6 PUSHL 
15 DD 000 PUSHL 
000000006 00 2 FB OO02A CALLS 
1 DD 00 PUSHL 
5 DD 000 PUSHL 
64 02 FB 000 CALLS 
DD 00038 1$ PUSHL 
000000006 09 or Fe A CALLS 
0B . 4} BBC 
E 30 A2 9A 0004 MOVZBL 
ze 4 A2 9A 00049 MOVZBL 
F B CALLS 
00000000* 8F Q 2s TSTL 
1 BEQL 
00000000* 8F 14 A2 03 f CMP2V 
BGEQ 
146 A2 p MOVL 
F BRB 
63 00B8 2 10 FD A 3% CMPZV 
BGTR 
51 02 A 0 0007 BBS 
A A 00078 4$ BICB2 
3 DD 0007C PUSHL 
00006 CF 1 FB O007E CALLS 


vie 008" ACT_SEL_FIELD = select the next field 15-sen-198 #:95:3¢ | PAE eshe saz oaktn’s Sm 
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#3, AED_L_FLAG 
AE6_T_CORCINE+ A 
AED - “CURLINE+20, cid oe 
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000000006 
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sae th 200 
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3 
ACT_SEL_ITEM = select the next item 13-Se0-1984 ERE COLLIS TTT Page 33) 


$e 
: 


! Clear all key indicators in case an error is seen. 
AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
AED_L_FLAGSCAED_V_ACTIONKEY] = 0; 

TERR_CHAR = 0; 

! Check to see if item selection is allowed. 

if wor eAED_L_FLAGSCAED_V_PROMPT] OR NOT .AED_L_FLAGSCAED_V_INSERTEXT) 
iat FLAGSCAED_V_ACERROR] = 1; 

SIGRAC (AED$_NOTTEMSEL); r 

RETURN 1; 

END; 

IF AED _L FLAGSCAED_V_OPEMUIC) 


BEGIN 


ooo 


oO 
wr 


L 


WTI 


1 ZSBTTL ‘ACT_SEL {Ten - select the next item’ 
} ROUTINE ACT_SEL_TTEM = 

5 7 ! had 

$ ! FUNCTIONAL DESCRIPTION: 

8 3 ¢ 1! This routine selects the next item based upon she _petectog field. 
60 9 1! The cursor is left positioned at the one of the selected item. This 
6} ; 5 : ; is only valid for an ACE being entered in PROMPT mode. 
es ; 1 ! CALLING SEQUENCE: 
re , : } ACT _SEL_ITEM () 

9 1 ! INPUT PARAMETERS: 

8 991 1! none 

208 336 1! 

S 995 1! IMPLICIT INPUTS: 

570 994 1! OWN storage 

a) 995 1! 

Lk: 99 1 ! OUTPUT PARAMETERS: 

2 997 1! none 

74 998 1! 

57 999 1 ! IMPLICIT OUTPUTS: 

57 4000 1! none 

57 t's 4 1! 

578 4002 1 ! ROUTINE VALUE: 

579 40035 1! 1 if successful 

5 4004 1! error status otherwise 
581 4005 1! 
5 ; 40 1 ! SIDE EFFECTS: 

5 4007 1! The Line segment table is updated as necessary, ACE Line pointers 
280 rts 4 : : are updated, and the object's ACL is updated as necessary. 
5 1090 1 !-=- 

5 4011 1 

5 BEGIN 

589 

590 

4 

9 

5 


Pe ee 


4 
+ be 18-3 see: 138 $3: 7:14 Ax-11 OL ise 3e V4.0-742 Page 132 


ACT_SEL_ITEM = select the next item 14- 4 11:52:29 ACLEDT.SRCJAEDMAIN.B32; 1 
; 36 4033 AED_L_FLAGSCAED_V_ACERROR] = 1; 
32) ‘9 i SI GAAC (AED MBABUTC) ¢ 
3 361 4035 RETURN 1 
: 361 40 § END; 
; 361 40 
s oie 3 3 ! No error conditions have been found, select the next item. 
: 361 4040 2 AED_L_FLAGSCAED_V FIRSTCHAR] = 0; 
; o19 4041 2 AED“SELECTITEM (BOFFER_INDEX) 
: 3618 4046 ECHO_DESC(DSCS$W_LENGTH] = AEB_T T CURL INEEL INE W_ SIZE): 
: 3619 404 ECHO-DESCLDSCSA_POINTER] = AED-T-CURLINELLINE.1_TEXTJ; 
: 3620 4064 SCRSSET CURSOR ¢.AED B LINE, 13:7 
: 3621 4045 2 AED_PUTOUTPUT (ECHO DESC); 
: 36 : 4046 SCRSERASE_LINE (.AEB_B_LINE, .SEGMENT_SIZE + 1); 
; 36 404 AED_B_COLOMN = .BUFFER-INDEX + 1; 
; 6 $ 4048 AED-SET_CURSOR (.AED_B-LINE, .AED_B_COLUMN); 
3 3626 4050 2 RETURN 1; 
: 3627 4051 
: 3628 4052 1 END; ! End of routine ACT_SEL_ITEM 
O1FC 00000 ACT_SEL_ITEM: 
.WORD Save R2,R3,R4, RS. R6,R7,R8 : 3977 
58 000000006 8F 00 00002 MOVL § #AED$ BADUIC F 
57 990000006 00 4 0009 MOVAB CIBSSIGNAL : 
36 00000006 8F p 0010 MOVL #AEDS na R6 : 
55 000000006 00 9€ 00017 MOVAB SCRSERASE PAGE, RS ; 
54 9909" CF 9E 00016 MOVAB BUFFER_INDEX : 
53 000000006 00 9€ 000 MOVAB ScRS $SET CURSOR R3 3 
5¢ 0000' CF 9E OO02A MOV AED LFA : 
01 A 2008 8F AA 0002F BICW2 #8200; AED_L_FLAGS+1 : 4017 
28 AG 94 00035 CLRB TER m_CHAR ~ + 4018 
1 Ag 95 00038 TSTB AED_C_FLAGS+1 + 4022 
44 01 A 8 0 $0 5 Bee #6 AED ste FLAGS#1, 4$ ; 
e3 40 BF 5 0025 1$: B1SB2 iS.'at + 4025 
OE 6 95 E1 0046 BBC H atb. pt Fikes: 2$ + 4026 
1 DD OO04A PUSHL ; 
15 DD 0004C PUSHL 4 1 ; 
65 ; FB 004 CALLS #2, SCRSERASE_PAGE ; 
DD 0005 PUSHL # : 
5 DD 0005 PUSHL #21 : 
63 9@ FB 00 CALLS #2, SCRSSET_CURSOR : 
DD 8 2%: PUSHL R : 
67 o1 FB A CALLS i LIBSSIGNA ; 
0B o D BBC AED L FLAGS 33 ; 
E 30 A2 9A $1 MOVZBL COL HN. ; 
3 4 Ad 9A MOVZBL ADB LINE Spe : 
6 F 9 CALLS. # str Sef CURSOR ; 
oo000000+ BF > ; 38: TTL #<AED$_NOITEMSELE/> : 
00000000* 8F 14 A2 03 i FD 7 CMP2V , #3, AED_L_WORSTERR, #<AEDS_NOITEMSEL&7> ; 
4C 7E BGEQ 3 ; 


4 
15-Sep-1984 $3:60:16 rate Bliss-32 V4.0-742 


see" 


ACT_SEL_ITEM = select the next item 4-Sep- ACLEDT.SRCJAEDMAIN.B32;1 
16 A2 i p 0 MOVL R6, AED_L_WORSTERR 
44 02 A : 4$: BLBC_ AED_L_FLAGS+2, 8$ 
é 4 F A BISB2 #647 AKED_L_FLAGS 
3 é 3 £1 000 BBC #3, AED_C_FLAGS, 5$ 
i DD 0009 PUSHL #1 
15 DD 0009 PUSHL #21 
65 02 FB 3% CALLS #2, SCRSERASE_PAGE 
DD 0009 PUSHL # 
15 DD 0098 PUSHL #21 
63 FB 0009D CALLS #2, SCRSSET_CURSOR 
DD 0A 5$: PUSHL R 
67 Fe A CALLS #1, LIBSSIGNAL 
0B $2 3 5 OOA BC #3. AED_L FLAGS, 6$ 
F 30 A2 9A O0A9 MOVZBL AEO_8_COLOMN, -(SP) 
3 4 A2 9A OOOAD MOVZBL AED 6 LINE, =(SP) 
4 FB 00081 CALLS #2, SCRSSET_CURSOR 
00000000* 8F p 0084 6$: StL #<AEDS_BADUTCE7> 
00000000* 8F 14 A2 03 0 ED 000BC CMPZ7V #0, #3, AED_L_WORSTERR, #<AED$_BADUIC&7> 
52 18 900¢6 BGEQ 46-9 
14 A2 58 0 900¢ MOVL RB, AED_L_WORSTERR 
4C 11 000CC 7$: BRB 
01 = A2 10 8A dO0CE 8$: BICB2 #16, AED_L_FLAGS+1 
54 DD 000D PUSHL  R4 
00006 CF 01 FB 00004 CALLS #1, AED SELECTITEM 
04 Ab 0088 ce B 90009 OVW  AED_T_CORLINE+8, ECHO_DESC 
08 Ad 00c4 C2 9E O00DF OV AED-T"CURLINE+20, ECHO_DESC+4 
01 pb O00ES USHL #1 
7 24 Ag A 000E7 MOV ZBL AED_B8 LINE, -(SP) 
é 02 FB OO0EB ALLS #2, SCRSSET_CURSOR 
04 AG OF OOOEE PUSHAB ECHO_DESC 
00006 CF 01 fe OOOF CALLS #1, KED_PUTOUTPUT 
7E 00B8 C2 3C 000F6 MOVZWL SEGMENT"SIZE, -(SP) 
6 p6 OOFB INCL (SP) 
7E 24 A2 9A OOOFD MOV2BL AED_B_LINE, -(SP) 
000000006 00 02 FB 00101 ALLS #2, SCRSERASE LINE 
20 A2 64 0 gi 0108 ADDB3 #1, BUFFER INDEX, AED_B_COLUMN 
7E 20 A2 9A 00100 MOVZBL AED_B_COLUAN, -(SP) 
7E 4 Ad 9A oii} MOVZBL AED"B-LINE, -(SP) 
00006 CF 0 FB 0115 CALLS #2, AED_SEf _CURSOR 
0 p OO1tA 9$: OVL #1.R 
4 00110 ET 


3; Routine Size: 286 bytes, 
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4 
ACT_HELP = provide interactive help 13-Se0-1984 #7:85:3§ Aer sReSAESMA TiN B58. 


4053 1 2SBTTL ‘ACT_HELP = provide interactive help’ 

4054 1 ROUTINE ACT AELP = POY ve vete 

4 1 

4 1 !e¢ 

4 “ 1! 

2 8 1 : FUNCTIONAL DESCRIPTION: 

4 60 This routine supplies the interactive help to the user. 
4064 1 | CALLING SEQUENCE: 

cher ! : ACT_HELP () 

does 1 ' INPUT PARAMETERS: 

4 1! none 

doer i 

4 o8 1 ! IMPLICIT INPUTS: 

rhs} } : OWN storage 

4071 1 | OUTPUT PARAMETERS: 

tors 1 i mene 

4074 1 ' IMPLICIT OUTPUTS: 

tore 1 i sei 

4077 7 | ROUTINE VALUE: 

$078 1! 1 if successful 

rt't44 } : error status otherwise 

4081 1 | SIDE EFFECTS: 

4082 1! The Line segment table is updated as necessary, ACE Line pointers 
rts : are updated, and the object's ACL is updated as necessary. 
$885 | io 

rs t4 BEGIN 

4089 SCRSSET_SCROLL (1, 24); 

4090 AED_GIVEHELP (); 

4091 ACT_REFRESH (0); ! Refersh the screen 
the RETORN 1; 

4094 END; ! End of routine ACT_HELP 


0000 00000 ACT_HELP: 


«WORD Save nothing 
18 DD 000 PUSHL #24 
1 OD PUSHL @ 

000000006 00 3 FB CALLS #2, SCRSSET SCROLL 
0000G CF 4 eter #0, AED_GIVEHELP 
0000v CF oi fe 1 CALLS #1, ACT_REFRESH 

0 1 p 19 MOVL #1, RO 
4 1¢ RET 


nS 
> 
a 


yar Bi isg23¢ HPht 
ACLEDT.SRCJAEDMAIN.B32;1 


ep-lobe 11:50:29 


ise 


ACT_HELP = provide interactive help 


Routine Base: S$CODE$S + 2882 


29 bytes, 


; Routine Size: 


Sm 


4 
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1 ZSBTTL ‘ACT_REFRESH = refresh the display‘ 
ROUTINE ACT_REFRESH (RESET) = 


li 
SR 


SSSS3 
we 


PRP POPEPOPONOMONNONOMNENDPUNNINUNINI a8 a at at at tt at at a tt ss 
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_ 
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FUNCTIONAL DESCRIPTION: 


This routine clears the screen and repaints the display to eliminate 
any extraneous garbage that may have appeared on the screen. 


CALLING SEQUENCE: 
ACT_REFRESH (ARG1) 


INPUT PARAMETERS: 
ARG1: 1 = reinitializ 
= reinitializ 


IMPLICIT INPUTS: 
OWN storage 


OUTPUT PARAMETERS: 
none 


WME wry 


y from object's original ACL 


spl C 
lay from in core copy of object's ACL 


i 
isp 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 
are updated, and the object's ACL is updated as necessary. 


Dl ae ee ee ae ee ae ae ae at et ae ee at ke et et eae te ede Dd 2 


ee ec ec me ee ee me em me a ce ee ee ee a ed ed et ed od wd od td od 


SS ee ee WW AAA ATIIUINIININNIN SS 
eee RRR HS SSS SUN SOO NOUE UN OOD NOME UNOS 


ouaoaeijeeese # # es se # * & & Se KKK HK HR HK HR KKK eR ee eh HS Hh Om HS Hh H 


4 
4 
ewe § 
ar 4 CURRENT _LINE : REF SBBLOCK, ! Address of current Line segment 
71 4 ATR_ARGCIST : BLOCKVECTOR C2, ITMSS_ITEM, BYTEJ, ! ACL attribute descriptor 
714 & ACL CONTEXT, ' ACL context for SCHANGE_ACL 
715 4 ACE_POINTER : REF $BBLOCK, ! Address of current ACE 
rig 4 ACE-NEBADOR : REF SBBLOCK ! Copy of gyrrent ACE 
71 & ACE_DESC : SBBLOCK DSC$C_S_BLN ° ! Binary ACE descr 
At | 4 ACE_TEXT_DESC : SBBLOCK Bacs¢-S_BLN ‘ ! Text ACE descriptor 
71 4 ACE_TEXT : SBBLOCK ° ! ACE text storage 
720 & ACE_TEXT_SIZE, ! ACE text size 
721 4 FIRST_CHAR, ! Addr of first char in segment 
7 ; 4 LAST_CHAR, ! addr of Last char in segment 
7 4 NEW TEXT_LINE =: REF S$BBLOCK, ' Converted Line storage addr 
| ? LINE_SEG_ SIZE; ! Size of Line segment 
7 $ 4 ! If this is a reset operation, deal locate all the in core ACL information 
4 ? ! and rebuild it from the object's actual ACL. 
7 § 4 IF .RESET 


vie 000" ACT_REFRESH = refresh the display 18-00-1964 #7:33:35 ACLepte sre Sazomdtinres 2, rege dis 

41 § THEN 
BEGIN 

CHSFILL (0, 2*]TMSS_ITEM, ATR_ARGLIST); 


' Go through the Lin nt table and deallocate all the old segments. 
Hay 10°0 
on do 


ne | 


; rt 

; 41 ¢ 

; 2) ! In addition, get r the copies of the binary ACEs. 

; 41 UNTIL REMQUE (.AED_Q_LINETABLECLINE_L_FLINK], CURRENT_LINE) 
: 336 tie, 

: 3740 4166 4 a oI URRENT LINECLINE v BEGINACE] 

3 374 $162 4 HEN If . CURRENT LINECLTN L_BINACE] NEQ 0 

: 374 P 4164 4 HEN DEAT LOCATE ; (SBBLOCKE. CURRENT LINECLINE_L_BINACE], ACE$8_SIZEI), 
> 374 4165 4 CURRENT LINECLINE_C BINACEJ); 
> 3744 P 4166 4 DEALLOCATE (.CURRENT LINECLINE W_SIZE) + SBYTEOFFSET (LINE_T_TEXT), 
> 3745 4167 4 CURRENT_LINE); 
rs a 

; 4176 ! Allocate storage for the temporary ACL segment buffer. 

: 3750 4126 AED STATUS = ALLOCATE (512, AED_A_ACLBUFFER); 

; g 1 473 F ROT .AED_L_STATUS 

: Fag t158 rs 6 N 

: 3754 4176 4 SIGNAL (.AED_L_STATUS); 

: 3755 4177 4 AED_L FLAGS KEB _GOLDKEY) = 0; 

: 136 4178 4 AED“L~FLAGSLAED— M “RCT IONKEY) ; "0; 

: 375 4179 4 TERAL THAR = 0; 

; 138 4180 4 RETURN AED _L WORSTERR OR STSSM_INHIB_MSG; 

3 £23 2 1 END; 

: re) re § ! Re-read any ACL associated with the object. 

: 376 4185 ACL CONTEXT 

: 3764 41 6 ATR-ARGLIST 0. | "inns. LTMCOD = Sipe READACL; 

: 3765 418 ATR™ ~ARGL IST TM$W~BUFSIZ) = 51 

: 766 4188 ATR-ARGLISTLO, Tmae ~BUFADR = .AED_A_ACLBUFFER; 

: 376 4189 WHICE 1 

: 3768 tin 2 BEGIN 

: 3770 Pp 419¢ 4 AED_L_STATUS = SCHANGE_ACL (CHAN = .AED_W_OBJCHAN, 
: 3771 P4193 4 OBJTYP = AED_C_OBJTYP. 
3 377 P4194 & OBJNAM = AED~Q~OBJNAM, 
: 377 P4195 4 ITMLST = ATR-ARGLIST 

: 3774 4196 4 CONTXT = ACLICONTEXTS; 
: 3775 4197 4 If NOT .AED_L_STATUS 

: ght tin 8 THEN GIN 

: 377 4200 IF .AED_L_STATUS EQL SS$_ACLEMPTY 

: a 4 1 OR. AED L STATUS EQL SS$"NOMOREACE 

; 3781 4 SIGNAL (AED$_READERR, 1, AED_Q_OBJNAM, .AED_L_STATUS, 0) 
: 37 é 4 AED_L_FLAGSCAED_V_GOLDKEY] ="0; 

: 37 4205 AED“L“FLAGSLAED-V-ACTIONKEY) = 0; 

; 37 4 TERA_CHAR = 0; 

: 3785 4 RETURN .AED_L-WORSTERR OR STS$M_INHIB_MSG 

: 37 4208 4 END; 
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«PSECT SPLITS,NOWRT,NOEXE ,2 


00 P.AAF: .BYTE 3 
000000 P.AAE: Pine ; 
88 868 88 ; ‘ “ADDRESS P.AAF ; 
P.AAH: “ASCH! <2?> ; 

“ASCII \=\ : 


oon 0038 MS ADDRESS P.AAH 


eEXTRN SYSSCHANGE_ACL, SYSSFORMAT_ACL 
-PSECT SCODES,NOWRT,2 
OFFC 00000 ich cain 


WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 4096 
5E F304 SCOCE C9 90002 MOVAB = 31$2(86), SP : 
0 04 ands ji 9007 BLBS RESET, 1 + 4151 
18 00 bE : 00 C oars 18 MOVCS #0, (SP), #0, #24, ATR_ARGLIST + 4154 
04 AE 0050" F oF 0015 2s REMOUE QAeD_ Q_LINETABLE, CURRENT_LINE + 4159 
52 A D0 001D MOVL ¢ RR NT TAB INE, R2 + 4162 
1 A A2 €9 00021 BLaCCOtCédg ; 
Cc (OA D3 0025 TSTL) So th }* + 4163 
12 13 00028 BEQL = 3 F 
C A2 9F OOO2A PUSHAB 12(R2) > 4165 
04 AE ¢ 8B po 00 OVL  @12(R2), 4(SP) ; 
04 AE F 000 : PUSHAB 4(SP) : 
000000006 00 02 FB 000 CALLS #2, LIBSFREE_VM : 
04 AE 3 003C 3$ PUSHAB CURRENT LINE + 4167 
04 AE 08 A2 3C 0003F MOVZWL &(R2), &(SP) : 
04 AE 14 (0 00044 ADDL2 #20, 4(SP) : 
04 AE 9F 00048 US 4(SP) ; 
000000006 00 0 re one CALLS ae. LIBSFREE_VM Ren 
090 ' cf F 808 4$ PUSHAB AED A_ACLBUF FER : 4172 
04 AE 200 F 3c 00058 MOVZWL #512, 4(SP) : 
AE OF : 5 PUSHAB 4(SP5 ; 
000000006 90 F é CALLS a, Ut LIBSGET_VM : 
; PS oboe BL Be VRSTATUS, 198 ; 
0200 8F 00 6E eae 0 5e i MOVCS > (SP), #0, #512, @AED_A_ACLBUFFER ; 
0000' cf BF D0 78 S$: MOVL VM STATUS, ype at STATUS ; 
3 0000' CF E BLBS ih + 4173 
16 0000' CF El BBC “hep. My ye oh ; 4176 
DD A PUSHL : 1 : 
000000006 00 ; FB CALLS ‘ , SCRSERASE_PAGE ; 
DD PUSHL : 
000000006 00 02 FB 3 CALLS $5" SCRSSET_CURSOR ; 
0000' CF DD OO009E 6$ PUSHL AEO_L_STATUS ; 
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So 


vies 008" ACT_REFRESH = refresh the display 1$-se0-1944 $ig55g | PARTE Oke saz b adit asses eval 


3 gb00 oF 


p F x CALLS #1, LIBSSIGNAL F 32 
A BBS AED_L_FLAGS, 7$ : : § 
AE 4 0008S 6S: ELRL ACE CONTEXT ' i 6 
ES AD 00070200, BF 09 ROVE 9659866, ATR. ARGLIST ; 24 
EC AD ' @ C VL AED_A_ACLBUFFER, ATR_ARGLIST+4 : : 4 
AE oF 6 98: PUSHAB ACL~ CONTEXT : 74 
C 000¢ CLRQ. = =( SP) : 3 4 
AD 9F 000CB PUSHAB ATR_ARGLIST : 74 
' CF 9F 000C PUSHAB AED~Q_OBJNAM : 7 4 
* CF 9F 0000 PUSHAB AED-L-OBJTYP : 7 4 
7 * CF 3¢€ 000d MOVZWL pou JCHAN, =(SP) ; : 4 
000000006 0 7 FB 000D CALLS #7, ~SYSSCHANGE : 3 4 
0000' f p OE nove R . AED_L_STATOS 3 : 2 
00000900 8F b GOA cHPL OR { 2512 : : ¢ 
000009EO 8F 50 D a0r3 CMPL RO, #2528 3 2 4 
OOFA 10$:  BNEG 11§ : ; 4 
03 OOF BRW «47S : 34 
16 0000" CF 3 £1 QOOFF 118: Bec aS. AED_L_FLAGS, 128 : : ¢ 
1 Saft ah : if 
000000006 00 Oe FB 001 CALs #2. SCRSERASE_PAGE ; 24 
15 DD O12 PUSHE a2 : 7 
000000006 00 Q2 FB 0011 CALS | #8 SCRSSET_CURSOR ; i$ 
000" CF DD OOlID  — PUSHL_ AED L_ STATUS : : 4 
S000 Br abigl§——ut ARDCACERIMA : if 
01151082 8F DD 001 ; PUSHL #18157746 ; 3 4 
000000006 00 3 FB 001¢D CALLS i: L1B$SI1G ; ; 4 
1 0000° ¢F EI 001 BBC AED L ofLaes 138 ; 32 
7E 000" EF 9A OOISt poveet Arb “BrL sit : : 4 
000000006 FB 00144 CALLS B br i ; : 4 
02 0000" CF ig O18 138: ad AED" t UUORSTERR, #2 ; 7 ¢ 
0000" CF 01151082 BF pO 0154 ra MOVL #1815746, AED_L_WORSTERR ; : 4 
59 900090" GF 0 168 188; OWL AED A_ACLBUFFER, ACE POINTER 3 ; 4 
50 0000' cr 0000 F C1 00165 16$:  ADDL3 #512, "AED A.ACLBUFFE FER, RO ; 7 4 
: 3 TF oot ghesy  egercunTeR .. 

FF4E 3 ise 178: BRO 98 ; 

69 99 OO177 188: STB. CACE_POINTER) ; 

F913 001 EQ. = 178 ~ ; 

Oc AE oF 00178 PUSHAB ACE _NEWADDR ; 

04 AE 69 9A 001 MOVZBL (ACE POINTER), 4(SP) ; 

04 AE 9F 001 ; PUSHAB 4(SPY ; 

000000006 99 FB 001 CALLS #2, LIBSGET VM ; 

08 18C MOVE RO, VA STATOS ; 

0 BA 00192 MOVZBL (ace POINTER) RO 

50 00 6E 80 2¢ 00195 MOVES” 0, TSP)” #0, RO. @ACE _NEWADDR ; 


Fi 
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oc A 
0000' cf a 19$: MOVL VM_STATUS, AED ; STATUS 
C 0000° A BLBS  AED_L STATUS, 258 
16 0000" CF BBC #3," AED_L_FLAGS, 208 
DD OO1AC PUSHL # 
DD OO1A PUSHL #21 
000000006 00 FB B CALLS ‘ , SCRSERASE_PAGE 
DD 00189 PUSHL #21 
000000006 00 02 FB CALLS #2, SCRSSET_CURSOR 
0000" CF DD O001C2 208:  PUSHL AEO_L STATUS 
000090006 00 | Fe ¢ CALLS #1, LIBSSIGNAL 
11 : ¢ BB #3, AED L FLAGS, 22$ 
E 000° CF 9A 00103 218 MOVZBL AEO_B_COLOMN, - 
000° CF A 0010 MOVZBL AED_B LINE, =(SP) 
000000006 Q 2F DD CALLS #2, SCRSSEf_CURSOR 
0000° cr p E4 22$ MOVL AFD L STATUS, RO 
0 9 £9 BITS RO, #7 
03 1 EC BNEQ 24§ 
0190 3 EE 338: BRW 41$ 
51 50 03 00 EF OO1F1 246$:  EXTZV #0, 43, RO, R1 
51 0000" CF 03 0 FD £6 CMPZV 4 ‘ #3; AED_L_WORSTERR, R1 
o1fA 31 FF BRW 40$ 
50 9 9A 02 25$ MOV ZBL (ACE_POINTER), RO 
OC BE 69 0 28 0020 MOVC3 RO, TACE POINTER), @ACE_NEWADDR 
E46 AD 9 po 0A MOVL ACE_POINTER, ACE_DESC+4 
£0 AD 69 9B 0020 MOVZBW (ACE_POINTER), ACE_DESC 
DC OAD 146 AE 3 1 OVAB ACE TEXT, ACE TEXT DESC+4 
DS AD 0c00 gF i 1 vi #3072, ACE_TERT_DESC 
E 7C 0021D LRQ ss =< SP) 
9000" CF OF O021F PUSHAB P.AAE 
000° CF 9F : PUSHAB AED_L_PAGEWIDTH 
D8 AD ot PUSHAB ACE-TEXT_DESC 
D8 AD OF A PUSHAB ACE~TEXT-DESC 
E AD OF PUSHAB ACE g 
000000006 00 g FB CALLS #7, °SYSS$FORMAT_ACL 
000' CF 0 MOVL RO, AED_L_STATOS 
6 D8 AD 3C c MOVZWL ACE_TEXT_DESC, ACE_TEXT_SIZE 
A 146 AE 99E 0024 MOVAB  ACE-TEXT> FIRST_CHAR 
0000' CF 7C€ 00244 CLRQ AED -L_FIASTL 
6A 56 A 00248 268 LOCC #0,-ACE_TEXT_SIZE, (FIRST_CHAR) 
: 4C BNEQ 278 
D 4 CLRL RY 
58 1 27$ MOVL 1, LAST_CHAR 
3 BGTR eof 
0098 | BRW 4 
57 5B A 28$:  SUBL3. FIRST_CHAR, LAST_CHAR, LINE_SEG_SIZE 
10 AE OF C PUSHAB NEW TEXT L INE 
52 14 =A VAB 20(R7), R 
04 AE 5 p VL = R2, 4 8P) 
000000006 “ 3 re A tice ; og Cae vm 
33 08 1 OVL 4¢ VM_STAT 
0 5 4 BLBC_ VM‘STATUS, 29S 
52 00 E aw C i MOVCS #0; (SP), #0, R2, @NEW_TEXT_LINE 


4 
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Whe2000 ACT_REFRESH = refresh the display VezSee18Bs FFi85:33 | ANE hese Mg asses age 445 
0000' cf 58 D 29$:  MOVL ° VM_STATUS, AED_L_ STATUS F 
0000" LBS § AED_L STATUS 355 + 426 
16 0000" CF ‘ E BBC #8, AED. LL FLAGS 30$ : 4 t3 
DD PuSHt #2 i 
000000006 00 FB CALLS #2, SCRSERASE_PAGE : 
DD PUSHL @# : 
DD PUSHL #21 : 
000000006 00 FB 00290 CALLS #2, SCRSSET_CURSOR ; 
0000" CF DD O0O2A4 30$:  PUSHL AED_L STATUS : 
000090006 00 | F Aa CALLS #1, LIBSSIGNAL : 
03 0000' CF A BBS #3. AED_L_FLAGS, 31$ : 
FF ¢ B BRW : é : 
FF 1 0028 318: BRW 1 : 
s 10 AE D BB 32$: MOVL #NEW_TEXT_LINE, R8 + 4253 
8 A 5? 8B 8 MOVW LINE SEGSIZE, 8(R8) ; 
C (A oc A C MOVL. ACE_RNEWADDR, 12(R8) + 4254 
16 AB 6A 5 O2¢ MOVC3 ACE TEXT SIZE, (FIRST_CHAR), 20(R8) + 4255 
0000" DF 6 02D INSQUE (RB), @AED QO LINETABLE? + 4256 
0000' cr D5 00202 TSTL AcD_(_FIRSTLINE + 4257 
6 12 00 D6 BNEQ 33$ ; 
0000" CF 10 AE D 0 D MOVL § NEW_TEXT_LINE, AED_L_FIRSTLINE : 
0000" CF 10 AE p DE 33$ MOVL §NEWTTEXT"LINE. AED"L-LASTLINE + 4258 
3A 01 As ‘ O2E4 MOV 1(RT1), FIRST.CHAR > 4259 
52 é 5 O2E8 SUBL3 LINE_SEG_SIZE; ACE_TEXT_SIZE, R2 + 4260 
56 FF Ae ; O2E MOVAB -1(R2), ACE_TEXT_SIZE : 
FFS5 O2F BRW 26$ + 4238 
36 DS O02F3 348 TSTL ACE _TEXT_SIZE + 4262 
03 14 O02F BGTR 3 F 
00cé 31 0 F BRW 44$ ; 
10 AE 9F OO2FA 358 PUSHAB NEW TEXT LINE + 4266 
52 . & 3 0 FD MOVAB 20(R6), R ; 
046 AE 5 p 030 MOVL 2, 4(§P) 3 
04 AE 9F 00305 PUSHAB 4(§P) ; 
000000006 00 F 08 CALLS , LIBSGET_VM ; 
38 D OF OVL RO, VM_STAT : 
0 é t le BLBC_ VM‘STATUS, 36$ F 
52 00 6E af C 0 13 MOVCS #0; (SP), #0, R2, @NEW_TEXT_LINE ; 
0000' cf a DO O0O31C 36S MOVL § VM_STATUS, AED b STATUS ; 
1 0000' CF €E8 00321 BLBS ABD LL STATUS, 28 ; 4267 
16 0000" CF 3 £1 00326 BBC #3," AED_L_FLAGS, 37$ : 4270 
1 DD ¢ PUSHL #1 ; 
DD PUSHL #21 : 
000000006 00 FB CALLS #2, SCRSERASE_PAGE ; 
DD PUSHL # ; 
3 DD 9 PUSHL #21 : 
000000006 00 02 FB CALLS #2, SCRSSET_CURSOR ; 
0000" CF DD 37$: PUSHL AEO_L STATUS ; 
000000006 00 } Fe 4 CALLS #1, LIBSSIGNAL ; 
11 F BBC #3. AED L_FLAGS, 39S ; 
E 9000" CF OA 38$:  MOVZBL AEO_B_COLOMN, -(sP ; 
7 ’ cr A MOVZ AED LINE =(SP) ; 
000000006 2 Ff CALLS #2, SCRSSET CURSOR ; 
0000" CF p 39$: MOVL  AEO_L_STATUS, R ; 
: 9 BITS RO, a7 ; 
1 C Bea. 41$ ; 
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AX-11 Oh iegn3e V4.0-742 
AEDMAIN.B32; 1 

43. RO, R1 

#3, AES_L_WORSTERR, R1 


RO, AED_L_WORSTERR 
#3300 KEB_L_FLAGS+1 


TERM HAR 
#268%35456, AED_L_WORSTERR, RO 


NEW_TEXT_LINE, R8 
ACE_TEXT SIZE 


8(R 

ACE-NEWADDR, 12(R8) 
AcE TEXT SIZE, (FIRST_CHAR), 20(R8) 
(RS), @AED_O LINETABLE?+ 
AGD_U_FIRSTLINE 
NEW_TEXT_LINE, AED_L_FIRSTLINE 
NEW-TEXT-LINE, AED-L-LASTLINE 
AED“L_FIRSTLINE, RT 

#1, TO¢R1) 

2, 3(ACE_POINTER), 45$ 
1(ACE_POINTER), RO 

0, aT 

46$ 

RO, #2 

46$ 

RO, #3 

46$ 

RO, #4 

46$ 

RO, #5 

46$ 

RO, #6 
46$ 

RO, #9 
46$ 
#16, 10(R1) 
AED_L_LASTLINE, RO 
#2,710(RO) 
(ACE_POINTER), RO 
RO, KCE_POINTER 
AED A_ACLBUFFER 
#512, 4(SP) 
4(SP5 
#2, LIBSFREE_VM 
AEO_G_LINETABLE, RO 
AED-Q“LINETABLE. RO 
#16416, AED L_FLAGS 
SEGMENT SIZE 
AED_W_TOTALSIZE 
AED“T"CURLINE, @AED_Q_LINETABLE+4 
AEDT" CURLINE, RO 
RO."AED.LLASTL INE 
é tberby 

AEB_L_CURACE 
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5 
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0000' CF 95 00458 TSTB «= AED_L_FLAGS#1 3; 4312 : 
gE 28 Ooeee BGEQ © 52$ : : 
0000" CF 94 004 CLRB_ AED_B_ACETYPE i 4315 : 
0000" CF A 004 BICB2 #8, AED_L_FLAGS+2 : 4316 : 
68 11 004 BRB 53§ : 431 ; 
0000" CF DD 00469 48S: —PUSHL —AED_G.L INETABLE : 4323 : 
00006 CF 1 FB 004 CALLS #1, AED_COPSEGMENT : : 
0000° cr 000 ' CF gE 4 INSQUE AEB_T_CORLINE, AED_Q_LINETABLE F 4324 : 
0 000" CF 9F 004 MOVAB AED-T~CURLINE ; 4325 : 
9000° CF 0 D Are MOVL RO, AED_L_LASTLINE : : 
000" fF 0 DO 004 MOVL RO, AED-L-FIRSTLINE : : 
1 0000" CF DO 004 MOVL AED b FIRSTLINE R1 ; 4326 : 
0000" ¢ Ai 80 004 MOVW  8(RT)> AED W TOFAL SIZE ; : 
9 0000" CF pO 0049 MOVL AED LASTCINE, R 3: 4327 : 
23 OA A 1 £0 00498 498: BBS #1,~10(RO), 51$ : : 
5 0000" ¢F 490 MOVAB Acb_T CURLINE, R2 ; 4330 : 
5 9 D1 004A CMPL RO, R2 ’ : 
05 12 004A BNEG } 50 ; : 
0000' CF 60 00 004A MOVL (RO), AED_L_LASTLINE : 4331 : 
0000" CF 0000" DE DO OO4AC 50S: MOV = AED L_LASTCINE, AED_L_LASTLINE i 4332 ; 
0 0000" CF 00 0048 MOVL AED_C_CASTLINE 3 433 : 
0000" CF 08 AQ AO 00488 ADbu2 B(RO); AED_W_TOTALSIZE _ : 
0000" CF Oc, Al 00 agécb 518: MOV © 12(R1), AED. _CURACE ; 4335 : 
0000" CF 04C6 TSTB = AED_L_FLAGS? : 4336 : 
16 18 OO4CA 528: GEQ. 548 ; : 
0000" CF 08 88 006cc BISB2 #8, AED _L_FLAGS+2 3 4339 ; 
0000" CF 9F 00401 538: PUSHAB BUFFER INDEX > 4340 : 
0006 CF G1 FB 0403 CALLS #1, AEB SELECTFIELD ; : 
0000" CF 0000° CF 1 81 O04DA ADDBS #1, BUFFER INDEX, AED_8 COLUMN : 4341 : 
0000' CF 0000" CF pO OO4E? S48: MOVE AED_Q LINETABLE, AED_C_GEGINLINE > 4344 : 
0000' CF 01 90 OO4E MOVE #1,-AED_B SAVE LI > 4345 3 
0000" CF 0000' CF 90 O04EE MOVB AED_B_COLOMN, AED_B_SAVE_COL : 4346 : 
$1 8 Step Sst: pst hdd 
000000006 00 02 FB 004F9 CALLS #2, SCRSERASE_PAGE ; : 
HH | Rae ge heal a! 
000000006 00 2 FB 00504 CALLS #2, SCRSSET_SCROLL ; : 
be 0000" ‘CF EB 9080 BLBS  AED_L FLAGS? 56$ > 4353 : 
09 0000" CF 61 €1 0051 BBC #1,~AED_L_FLAGS, 57% ; ; 
0000' CF 9F 00516 56$:  PUSHAB P.AA 4354 ; 
00006 CF 1 FB OOSIA CALLS #1, AED PUTOUTPUT ; : 
0000" CF 1 SIF S78: MOVE: © #1, TEMP LINE 4355 ; 
10 A 0000' CF D 4 MOVL © AEB_L BEGINLINE, NEW_TEXT_LINE > 4356 3 
5 0000" CF DO 0052A MOVL TEMP_CINE, R : 4359 3 
1 BB Bee 9m SUR : : 
00 0 02 F 3 CALLS #2, SCRSSET CURSOR ; ; 
“ge OR BR OBS RELL peed | 
000° CF Me OAS Se o0ses Ovaa 20¢R2S ECHO_DESC+4 436) : 
0000' CF 9F 0054A PUSHAB ECHO_DESC > 4362 : 
00006 CF 1 F 4 CALLS #1, KED PUTOUTPUT ; : 
0% ere a F Bote aS TERS), 598 £364 : 
0 he > 60 C MOVL (R2), NEW_fEXT_LINE > 4365 ; 
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10 AF 10 BE D 56 59$:  MOVL a@NEW_TEXT LINE. NEW_TEXT_LINE : 

5 0000" f D MOVE ie MP~ aban E.R ; 

" ba ba bosen gerk ; 

50 0000" CF 9 O56F MOVAB eos Q el NE TABLE ; 

50 10 AE pi 0574 cMPL N ¥ TEXT_LINE, gon? ; 

7E 0000" CF 9A 057A 608 MOVZBL Ht} _B_SAVE “fhe -(SP) : 

7E 0000" CF 9A 00575 MOVZBL AED_B SAVETL SP) : 

000000006 00 Ge FB 005 CALLS 4 de : 

0000" CF 2008 F AA 005 BICW rear 4 URSOR : 

000° cr 94 05 CLRB ; 

50 1 00 MOVL ; 

04 0059 RET : 
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ACT_ENTER = enter the current ACE 1$-sep-1964 $7:93:35 ACLept’s ESazomating 


$e 
: 


; 407 449 ; D0 

: 205 2098 TE AED_L_LASTLINE EQLA AED_T CURLIN 

; 407 44 4 THEN AEB c LASTLINE = AED c FAST NECLINE L_FLINKI; 
3; 4 a 4495 4 AED_L_LASTCINE = .AED L_LASTC tl ey ut FLINRI; 

i 4 g 44 AED “We OTALSIZE = .AED_Q@_TOTALSIZE + 7AED_L_LASTLINECLINE_wW_SIZEJ; 
: 4 a] 449 AED_L_CURACE = ,AED_L_FIRSTLINECLINE_L_BINACE); 

i 6 7 44 IF ;AED_L_FLAGSEAED_V_PROMPT 

; 208) 2803 ¢ RES SCAED_V_NOITEMSEL) = 1 

; S t3 

3 4 é 4 ¢ 4 AEDUSEL ECT fee” CUE TER INDEX); 

3 40 6 = .BUFFER_INDEX + 1; 

fos £306 END; 

: 40 45 AED_L_FLAGSCAED V_FIRSTCHAR] = 1; 

; 2089 4508 IF 7AED B COLUMA GTR .SEGMENT SIZE + 1 

: 4088 45 THEN BUFFER_INDEX = .SEGMENT SIZE 

3 4089 $319 ELSE BUFFER" INDEX = .AED_8 COLUMN - 1; 

3 4090 451 AED_SET CURSOR (.AED B LINE, .BUFFER_INDEX + 1); 

: 4091 4316 AED-L_FCAGSCAED_V_GOCDREY] = 0; 

3; 409 451 AED-L~FLAGSLAED-V-ACTIONKEY) = 0; 

> 409 4514 2 TERA CHAR = 0; 

: 4096 4319 RETURN 1; 

: 4096 2319 ¥ en: ! End of routine ACT_ENTER 


001C 00000 ACT_ENTER: 
WORD 


: Save R2,R3,R4 
54 0000' CF 9E 0000 MOVAB BUFFER INDEX, R4 
53 0000' CF 9E 0000 MOVAB AED_L FLAGS, R3 
4 D4 0000C CLAL BUFFER INDEX 
0 A 1 90 V6. #1, AEB_B_COLUMN 
‘=e 8 BA 0001 BICB2 #8. AED"L-FLAGS+1 
00096 CF FB 0001 CALLS #0, AED"REPSEGMENT 
18 AG p 1B MOVL RO, NEWTTEXT_LINE 
1F TSTB © AEO_L_FCAGS 
p 1 to 
08 _ E9 BBS #5, AED_L_FLAGS+1, 1$ 
1 A 6 5 BBS #6. AEDTL“FLAGS+1. 18 
0081 31 BRW 6 
0000v CF 0 FB 1$ CALLS #0, FINISH_ACE 
oi A3 40 BF BA BICB ass, AED_L-FLAGS#1 
00006 CF re A CALLS #0, AED COMPRESS 
E 02¢4 C F MOVZWL Arby TOTALSIZE, -(SP) 
90006 CF i fF 4 CALLS #1, AED_UPDATEACL 
08C g 9 D 9 MOVL AED“L STATUS 
008 f ; 4 BL BS AEO_L_ STATUS, 
6 4 f 1SB2 #647 RED L FLAGS 
40 Ad DD PUSHL AFD LL FIRSTLINE 
00006 CF 0} FB A CALLS @# AED POSIT ON 
40 A3 OD F PUSHL AEO_L_FIRSTLINE 


Pete Se Se Se Se See Se Se Se Se Se Se Ge Se Be Se Se Se Se Se Be Se 


b-sen-1984 $3390:38 AX-11 Blisg-32 V4.0-742 


s500 2 Sep-1 ACLEDT. SRCJAEDMAIN.B32;1 
nee - the current ACE . 
te AD eae ee 
a) ie TLINE 
9 6} 0089 4 b ; ce AEDILZLASTLI LINE, AED we eros 
m i! Cee AEDmL bbe AL ine Aceh +t _FIRSTLINE 
£6 Ag sag | k b 7E 2$ cH AED=L cnt 
) tl a eee nani 
ip tS Obed i ° ” CHL, DIL“FIRSTLINE, AED"L_LASTLINE 
aie a 38 Beet AED_L_FLAGS, 4$ 
5 Bi ¢B2 #32, AED C_FLAGS 
a 3 gt booer RL FRER_IRDEX 
‘ 1 Maen a By. AED B COLUMN 
0 8 . HT pOVBL AEO_B_COLOMN, -(SP 
* 2 a A booAe Bi ew2 $8320 AED_L_FLAGS 
0 4 AA OOOAC 5S: BICW #8520, AED EL 
vl By PB Boos, eck OED POSITION 
wor © ¢ oe 089 MOVAB AEB 0 LINETABLE, RO 
8 2 00BD CHL gAED_C_ 
ai te | Oe § 
3 4020 0082 iB tates 7$: B1su2 #16416. AED L_FLAGS 
ee ee Ea ese .inetinte 
R 
2 5 a a 39009 M a mot es LTASTLINE 
to OA a 50 3 bors HOVE RO, AED EL SFIRSTLINE 
ab wi, 10¢ 
A MOV 
a, + + Be BOEA CLRL = AED_L =fUR ACE 
ai | ¢ BOE TSTB AED L7FLA 
es a a een 
we os BA OF picse a, “AED_L_FLAGS+2 
PU 
pod 31 3 ore CALLS #1, aeD ED oSELECTEIELD 
ay hs iad 3 60 104 HOVAB AED TC cot iness6,°E ECHO. bESces 
Ab 00C4 E t ROVAB . 
me RB BER Be isn, 
een a. ‘ BH Bae Fe tw 
wee Gl 4 3¢ 001 MOVZWL SEGMENT~ 
‘ me INC (SP) i 
AG 88 Oy ROVIBL A D_B_LINE, -(S 
re ea 
coe t 6 i i AOVIBL AEO_B COLUAN, -(§P) 
en ey a ha 
F . p FB O04 CALLS tee AED_SEf_C¢ 
meal tp O01G8 8 L_LASTLINE 
44 B83 DD 128 §§ PUSHL  @AED_L_ 


DSMAIN -$ep-1986 23:47: AX-11 Bliss-32 V4.0-762 P 

Wine000 ACT_ENTER = enter the current ACE yersee~}38e FF:85:35 «| HARES Ob tess 8e ti0e SS?) sd 

00006 ¢ 01 FB 001 CALLS #1, AED_COPSEGMENT ; 

44 : 9080 C 9 6 Insaue AE6_Y*CORLINE, SAED_L_LASTLINE ; 

4a OA D0 00158 MOVL RO. AED _U_LAStL INE : 

40 A D0 001 MOVL RO, AED"L “FIRS LINE ; 

5 40 A3 DO 001 MOVL AED L FIRSTLINE R ; 

02¢4 g 08 A2 B60 001 MOVW § 8(R2)> AED W TOFALSIZE ; 

i 4a OA 1 MOVL AFDt LASTCIAE R : 

1F OA Al 0 171 10$:  8BS #1, 10(R1), 128 F 

20 0080 176 MOVAB abt CURLINE, RO ; 

4 83 Sorse at | Ps ; 

46 a3 D0 001 MOVL ig AED_L_LASTLINE : 

MS de ERE GRIEG 118: RBYE SAD LASTERE. GP ttasT an | 

02c4 2} 08 al A appu2 S(T); AED_W_TOTALSIZE ; 

3c — * p 195 12$ MOVL 19fR2) AED L .CURACE : 

8 190 (318 AR .t FLAGS? : 

02 a3 ; as O19F BIS82 #8, AED_L_FLAGS#2 : 

00006 CF 1 FB DIAS CALLS #1, AED SELECTFIELD , ; 

20 a3 64 1 1AA ADDBS #1. BUFFER_INDEX, AED_8_COLUMN F 

01 «A3 19 8 OOIAF 13$: BISB2 #16, AED_L7FLAGS+1 ; 

50 0088 cs 3¢ 0183 MOV ZUL  ppoalihing RO : 

50 20 a3 08 00 FD OBA CMP ZV f #8, AED_B_COLUMN, RO ; 

64 0088 cs x¢ oit2 MOVZL SEGMENT_SIZE, BUF FER_INDEX ; 

64 20 AS oA 001¢9 148: MOVZBL AED -B. COLUMN, BUF FER_INDEX ; 

7E 4 $3 ct oie 15$:  ADDL3 #1, BUFFER_INDEX, -(SP) : 

E 24 a3 A 103 16$:  MOVZBL AED_B LINE; -(SPS | ; 

00006 CF 02 FB 1D CALLS #2, AED_SET_CURSOR : 

01 «AB 2008 8F AA 0010 BiCw2 #8200, KED_C_FLAGS+1 ; 

28 «AG 94 OOIE CLRB. ss TERM CHAR ; 

50 01 00 OO1E MOVL «6so#1, R : 

4 OO1E8 RET : 


Routine Size: 489 bytes, Routine Base: S$CODE$ + 2E69 
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ACT_INSERT = insert an ACE 1: op-188e fissoi09 — FatceprSatSacomatin ase. Page 135 
1 ZSBTTL_ ‘ACT_INSERT = insert an ACE’ 


1 
ROUTINE ACT_INSERT = 
i++ 
FUNCTIONAL DESCRIPTION: 
¢ This routine Hj a by when it is desired to insert a new ACE at 
2 § @ random position in the ACL. 

4 

8 

9 


CALLING pemuenes: 
ACT_INSERT () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
storage 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


i 
' 
' 
! 
1 
i 
' 
i 
i 
: 
‘ 
: 
! 
! 
! 
: 
' 
! 
! 
! 
! 
: 
' SIDE EFFECTS: 

; The Line segment table is updated as necessary, ACE line pointers 
: are updated, and the object's ACL is updated as necessary. 

lo 


BEGIN 


If NOT .AED_LF 
AND NOT .AE ce 


5 AGSCAED_V_ENDACL] 
AND NOT .AED_ 
HEN 


L 
FLAGS AED _U_INSERTEXT) 
FLAGSCAED_V_INSERT 


BEGIN 
NEW_TEXT LINE = AED_REPS 


a E 0); 
i ~AED_C_FLAGSCAED_V_MOD 
HEN 


GMENT 
IFIED) 


BEGIN 
FINISH_ACE (); 

IF .AED_L FLAGSCAED_V_PROMPT) 

AND | -AED_C_FLAGSLAED_0_FIRSTCHAR] 


BEGIN 
NEW_TEXT_L . 


AED"W_TOTA 


INECLINE_V_DUMMY) = 1; 
E ‘ < 

AED L_FLAGSCAED 

| 


NSERTEXT) = 0; 
EQL 


“AED W_TOTA 
= ,NEW_TEXT_LINECLINE_L_BLINKI; 


THEN NEQ_TEXT 
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54 0000' CF 9 F MOVAB AED_L_FLAGS, R4 ; 
03 64 65 ‘ 4 BBC f “AED_L_FLAGS, 28 : 
01FB I: BRW 19$ : 
Fg 1 Ab : : BBS #6, AED_L_FLAGS+1, I$ : 
F 1 Ab BBS #5. AED“L-FLAGS+1, 1 : 
00006 CF F CALLS #0, AED-REPSEGMENT ; 
65 A MOVL RO, NEW" TEXT_LINE : 
64 D TSTB © AED_L_FCAGS : 
3 F Biss 0 3 ; 
00AB 1 00041 BRW 10$ : 
0000v CF 00 F 44 3% CALLS #0, FINISH_ACE : 
01 «AG ? 49 TSTB AED_L_FLAGS+1 : 
10 4C BGEQ : 
0B 01 Ab 04 €£ OO4E BBC #4, AED_L_FLAGS+1, 4$ ; 
50 8? g ? MOVL new TEXT CINE, RO ; 
OA AO 4 00 é BIS62 #4, 10(R : 
02¢4 ¢4 BA O5A CLRW Ab _w TOTALSIZE F 
01 Ab 40 &8F BA 005 4$ BICB2 #647 RED_L FLAGS+1 F 
0206 C4 B 6 TSTw AED.W_TOTACSIZE ; 
07 12 0006 BNEQ § ; 
50 65 DO 00069 MOVL §§ NEW_TEXT_LINE, RO ; 
65 04 Ad 00 006 MOVL 4(RO), NEW TEXT LINE ; 
00006 CF 09 FB 00070 5$ CALLS #0, AED COMPRESS : 
7E 02¢4 3¢ 0007 MOVZWL AED_W TOTALSIZE, -(SP) : 
00006 CF 1 FB OO07A CALLS #1, AED_UPDATEACL 3 
008C C4 0 D O07F MOVL RO. AED"L_STATUS ; 
61 008¢ cs ; 084 BLBS_ AED_L_STATUS, 9$ ; 
64 40 = «BF 0089 BISB2 #647 RED _L_FLAGS ; 
40 A& DD 0008D PUSHL AFD Lt FIRSTLINE ; 
68 01 FB 0090 CALLS #1, AED POSITION ; 
40 A4& DD 0009 PUSHL APO FIRSTLINE ; 
00006 CF 01 FB 0096 CALLS #1, AED _COPSEGMENT ; 
50 40 A& dO 00098 MOVL  AED_L_FIRSTLINE, RO ; 
04 60 0080 C4 OF O09F INSGUE AED"T"CURLINE, @4(RO) : 
40 AG 44 AS DI ° AS CMPL AEDTL“LASTLINE, AED_L_FIRSTLINE ; 
06 12 OOOAA BNEG 6$ : 
44 AG 0080 C4 9E OOOA MOVAB AED_T_CURLINE, AED_L_LASTLINE ; 
40 Ab 4 A, ? 08 6$: cMPL AED_LBEGINLINE. AED“L_FIRSTLINE ; 
48 AG 0080 C4 9E 00089 MOVAB AED_T_CURLINE, AED_L_BEGINLINE ; 
40 AG 00B0 (4 9E OOOBF 7$: MOVAB AED"T“CURLINE, AED“L-FIRSTLINE ; 
44 AG 40 AS D1 000C5 CMPL AED"L“FIRSTLINE, AED-L_LASTLINE F 
7 13 OOOCA BEQL sé ; 
03 64 f 99¢ BBC #5, AED_L_FLAGS, 8$ + 4591 
64 A 0000 BICB2 #32, AED C FLAGS ; % 
E8 AS D4 000D3 8$ CLRL BUFFER INDEX : 459 
20 Ab 01 90 00006 MOVE #1, AED_B COL : 4594 
7E 30 A4 9A OOODA MOV7BL AEO_B_COLOMN, -(SP) : 4595 
7E 4 Ad 9A 000D MOVZBL AED"B-LINE, -(SP) ; 
00006 CF 2 a OE CALLS AED_SET_CURSOR ; 
013¢ E BRW 1 f > 4596 
64 2080 BF AA OOOEA 98: BICw2 #8320, AED_L_FLAGS + 4601 
00006 CF 0 FB OOOEF 10$: CALLS é> COMPRESS + 4603 
40 A& DD OO0F4 PUSHL 6_L_FIRSTLINE + 4604 
68 01 F 7 CALLS #1, AED POSITION ; 
40 Aa D FA MOVL Agb ' FIRSTLINE, RO > 4605 
3c. AG 0¢ AO D FE MOVL 12(ROT, AED_L_CURACE ; 
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04 13 1¢ BEQL 7s ; 
CB 53 4 3 001C 168: AOBLEQ #20, J, 15$ t 4639 
EB AS 04 001C :  CLRL BUFFER INDEX + 6651 
20 Ab 01 1¢ MOVe #1, AED B COL UMN : 46 ; 
O18 38 Bor {38 AGB _LLFCAGSs —_ 
00A8 cs 4 001D CLRB ADB ACETYPE : 4656 
02 AG é A 00109 BicB2# AED L_FLAGS+2 + 4665 
E8 AS 9F 001D PUSHAB BUFFE INDEX : 4658 
00 Sone HG UEIEE «AAS is tout tagTE! ED oe 4439 
FOS 00C4 ¢ BF 168 MOVAB AFD_TICUR LINE+ $56,°E ECHO! bESce4 + 4660 
1 pb 1F PUSHL # + 4661 
7E 24 AG OA 1F3 MOVZBL AED_B LINE -(SP) F 
66 0g FB OO1F CALLS #2, SCRSSET_CURSOR : 
oH Be REIS ERR SO Surouney oe 
E 0088 {£4 3C 00200 MOVZWL SEGMENT“SIZE, (SP) + 4663 
6E p6 0205 INCL (SP : 
24 03. Fe 00508 CALLS. AD TSCRSERASE CINE 
20 Ad E8 AS 01 gi 020€ ADDB3 #1, BUFFER R INDEX AED_B_ COLUMN + 4664 
7E 20 AS 9A 00214 18$:  MOVZBL AED_B_COLUAN, -(SP) + 4666 
7E 4 Ad 9A 00218 MOVZBL gD-8 LINE, =(SP) : 
ae ca MP ir eee 
01 AG 2008 BF AA 8 619%:  BICW $5206 AES_C_FLAGS+1 + 467 
10 AS 94 0022C¢ CLRB. Ss TERM CHAR ~ + 467 
50 01 00 0022F MOVL : t 4674 
04 00232 T + 4676 


; Routine Size: 563 bytes, Routine Base: S$CODE$S + 3052 


SE > 


6 
AEDSMAIN 1$-58 =1984 23:47:14 AX-11 Bliss-32 V4 2 Page 159 Al 
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ZSBTTL ‘ACT_EXIT = Leave the ACL editor’ 
ROUTINE ACT_EXIT (QUIT) = 


144 
' 
FUNCTIONAL DESCRIPTION: 

This routine handles two ACL editor actions. If the action is a 
QUIT, then any existing peatess file is closed (but not deleted), 
any unentered ACE is left untouched, and the session is terminated. 
If the action is_an EXIT, the object's ACL is updated to reflect the 
current state. This done by first deleting any existing ACL, and 
adding the current in core one. 


CALLING SEQUENCE: 
ACT_EXIT (ARG1) 


INPUT PARAMETERS: 
ARG1: 1 = terminate the session with the object's ACL untouched 
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] 

i 

! 

: 0 = terminate the session and update the object's ACL 
! IMPLICIT INPUTS: 

OWN storage 

! OUTPUT PARAMETERS: 

: none 

i 
i 
! 
! 
1 
i 
i] 
i 
i 
i 
1 
le 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
1 if successful 
error status otherwise 


SIDE EFFECTS: 
The Line segment table is updated as necessary, ACE Line pointers 
are updated, and the object's ACL is updated as necessary. 


SONS 


BEGIN 
LOCAL 


ATR_ARGLIST : BLOCKVECTOR C2, ITMSS_ITEM, BYTE), ! ACL attributes 
ACL CONTEXT, ' ACL context for SCHANGE_ACL 
DUMAY_A : SBBLOCK CACLS$S_DELACLENT]I, ! Dummy ACE for delete 
CURRERT_LINE : REF SBBLOCK; ! Current Line segment address 


! Determine if this is a QUIT or EXIT. 
IF QUIT 
THEN 


BEGIN 
SIGNAL (AED$_NOCHANGE) ; 
RETURN 0; 
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GIN 
NEW_ Text LINECLINE_V_DUMMY) = 1; 
AED“ W. TOTALSIZE = 0;~ 
AED_COMPRESS ( 
AEDEL STATUS = ip UPDATEACL (.AED_W_TOTALSIZE); 
F ROT -AED_L_STATOS 


EN REGIN 

AED L FLAGSCA 

AED-POSITION 
AED” COPSEGMEN 

INSQUE (AED_T 

IF .AED_L LAS 

THEN wis C_LA 


iw 


p SEO F IRSTLINECL INE LOL INK); 


TLINE 
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ACT_EXIT = leave the ACL editor 14- 338- 138% 7 gb: iS ACLEDT.SRC SAEDMAIN. B32" 1 ge 466 
NEW_TEXT LINE = AED_REPSEGMENT (); 
IF TAED_C_FLAGSCAED_V mooie seed 
OR .AED_L_FLAGSLAED V_INSERT 
on -AED_L_FLAGSLAED V_INSERTE 
EGIN 
INIS 
F 
D 
E 
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0 
: 
4 
5 
° 4765 
476 BEG fe 
8 476 AED_L_FLAGSCAED_V_ENDACL] =_0; 
9 S| AED-L-FLAGSCAED_V_INSERTEXT) = 0; 
50 476 END; 
51 4770 BUFFER_INDEX = 0; 
26 4771 AED_ L = 1; 
5 $776 AED-SET_ CURSOR (.AED_8 LINE, .AED_8_COLUMN) 
$2¢ 477 AED-L_FCAGSCAED_V_GOCDREY] = 0; 
55 4774 AED _L_FLAGSCAED V_ACTIONKEY) = 0; 
38 4775 TERA R = 0; 
5 $778 ET ¥3 
28 477 : 
errs END; 
: 44 AED_L_FLAGSCAED_V_GOLDKEY] = 0; 
§ rte + : Now for the fun part. Because the real ACL on the object bese $ Een 
47 § i yguched. it is necessary tou date it at this time. his is by 
47 uees deleting the object's ACL, and then applying the ACL as modit ed 
5 4 : ! by the user. 
47 CHSFILL 9 g SeATMss. ITEM, ATR_ARGLIST); 
rth ACL_CONTE 
4 rth $ ! Now delete the entire ACL. This will catch all but the protected ACEs. 
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47 ATR_ARGLIST(CO, ITMSW_ prog 123 = acLsc DELETEACL; 

4 4 ATR_ARGL at » LTM$Wo eur siz} = 12; 

4 4 ATR “ARGLI » LTMSL“BUFADR] = DUMMY_ACE; 

vy P 4 ¢ AED- 4S = SCHANGE E_ACL (CHAN = .RED W _OBJCHAN, 

4 P 47 OBUTYP = AEO_C_OBJTYP, 

& P 47 $ OBJNAM = AED_Q OBJNAM, 

& P 47 ITMLST = ATR_ARGLIST 

4 4798 CONTXT = ACLICONTEXTS; 

é 344 ft Wot -AED_L_STATUS 
4 4801 BEGIN 
4 4 8g AED 8B OST IONSEAED -V_KEEPJNL] = 1; ! Keep the journal file 
Bie eet 
& 4805 
2 44 2 "] ! Now delete any protected ACEs remaining in the ACL. 
2390 2809 ieee 
4391 10 
4 35 tBi3 ate TARGLIST - ITMSW_ITMCOD] = ACLSC_READACE; 
439 4 \¢ ATR_ARGLISTCO, ITMSW_BUFSIZ] = ACLSS~ “READACE: 
4394 481 a ~ARGL IST »_ I TMSL_ “BUFADR] = DUMMY— ACE; 
4395 4814 “CONTEXT = 0; 
4396 P 4815 AED"L STATUS = = $CHANGE_ACL (CHAN = .AED_ W OBJCHAN, 
4397 P 4 18 OBJTYP = AEB_C_OBJTYP, 
4398 P 481 OBJNAM = AED-Q-OBJNAM, 
4 P 481 ITMLST = ATRIARGLIST 
4400 481 CONTXT = ACLICONTEXTS; 
4401 rt 0 IF NOT .AED_L_STATUS 
te08 éB : “BEGIN 
4404 48 4 4 IF .AED_L_STATUS EQL SSS$_ACLEMPTY 
4405 4824 4 OR .AED-L-STATUS EQL SS$_NOMOREACE 
44 4825 4 THEN EXTTCOOP; 
440 48 $ 4 AED_B_OPTIONSCAED_V_KEEPUNL) = ts ! Keep the journal file 
prt rt} 5 & AEs §;A6°- L_STATOS); 
4410 4829 END; 
4411 tb 0 ATR_ARGLIST(CO, ITMSW_ITMCOD] = ACLSC winnie 
441 4831 ATR_ARGLISTCO, ITM$W_BUFSIZ] = .CUMMY_ACE ACESB_SIZE); 

441 4 § ATR_ARGLISTLO, Aree BUFADR] = DUMMY_ACE; 

4414 P 4 AED“L_STATUS = $C LACL (CHAN = .KED_W_OBJCHAN, 7 
4415 Pe rt OBJTYP = AEO_C_OBJTYP, Ms 
441 P 4835 OBJNAM = AED_Q OBJNAM, 

44) P 48 ITMLST = ATR_ARGLIST 

4418 4 CONTXT = ACL-CONTEXTS; 

rr ? 3 eet -AED_L_STATUS 

4 4 4 8 
te ; 4 ? 4 RED B D_B_OPTIONSCAED_V Y Efe. © 1; ! Keep the journal file 
44 & § 4 S1GRAE (.AED_L_STATOS 

4426 4 RETURN 0; 

te 3 4 4 END; anes 

44 $ 6 § , 

4428 4 ! Now thst the object's original ACL has been removed, update the ACL with the 
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! one modified by the user. 


INE_V_BEGINAC 
LINE_C_BINACE 


wn 
WC OONAUS 


vuvv 
vs 


INIA NN BP PEPE ES 


wm 


IF NOT .AED_L_STATUS 
THEN 


END; 
SURRENT LIME = .CURRENT_LINECLINE_L_FLINK); 


SIGNAL (AED$S_ACLUPDATED); 


OFFC 00000 ACT_EXIT: 
- WORD 


AX-11 iisgs 
ACLEDT.SRCJA 


! Keep the journal file 


! End of routine ACT_EXIT 


R3,R4,R5,R6,R7,RB,RI.RI0,R11 


RSEHANGE, R11 


ANGE_ACL. R10 


1 -BINACEI. ACESB_SIZEJ; 


; 4678 
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0 . 
9 et p 4 CALLS #1, LIBSSIGNAL F 
08 6 ; 6A BC A} AED_L_FLAGS, 2$ ; 
E 30 Ab OA ROV ZBL AE6_B_COLOMN, -(SP) : 
i * $8 fp CALLS. BOL TSTRESET CURSOR 
00000000« 08 ; 28: TST E<AEDS NOCHANGEE?> : 
00000000* 8F 16 AG 03 ? ‘ 1 ChE #0, #3, AED_L_WORSTERR, #<AEDS$_NOCHANGES7> : 
14 «OA p 8 MOVL Rit. AED_L_WORSTERR : 
02 1 38: BRW 3 : 4732 
. 0006 CF Q F 4 4$: CALLS #0, AED_REPSEGMENT : 47 
000° CF p 79 MOVL RO, NEW-TEXT_LINE ; 
7 isi A 6_L_FCAGS + 4736 
08 1 Ab 8 EO 000 BBS #5, AED_L_FLAGS+1, 5$ ; 4737 
1 Ab coke ; 0 t BBS #6. AED“L-FLAGS+1. 5$ : 4738 
0000v CF 0 fe 99 F S$: CALLS #0, FINISH ACE + 6741 
01 A ? 094 Ist AED _L_FLAGS* + 4742 
0D 01 A 04 if $099 BBC #4, AED_L_FLAGS+1, 6$ + 6743 
5 0000' cf bo 000 MOVL NEW_TEXT CINE, RO + 4746 
OA AO DO0A BISB2 #4, ~10(R : 
024 6 B4 OO0A CLR Arb TOTALSIZE + 4747 
00006 CF B 90 6$ cALL AED_COMPRESS + 4749 
E 0206 66 3C MOVZWL AF TOTALSIZE, -(SP) : 4750 
00006 CF i FB 0008 CALLS #1, AED_UPDATEACL ; 
008c «6 0 DO OO00BA MOVL RO. AED"L STATUS ; 
1 008 a E DOOBF LBS AED_L_STATUS, 10S + 4751 
ry 4 F 10064 BISB2 #647 RED_L_FLAGS + 4754 
40 Ab DD 000C8 PUSHL AED_L_FIRSTLINE + 4755 
00006 CF 01 FB 000C CALLS #1, AED_POSITION 3 
40 A6 DD 000D PUSHL Arb FIRSTLINE + 4756 
00006 CF 01 FB 00D CALLS #1, AED_COPSEGMENT ; 
0 40 Ab p 10008 MOVL  AED_L_FIRSTLINE, RO + 4757 
04 80 0080 6 ; 000 INSGUE AED"T-CURLINE, €@4(RO) : 
40 Ab 44 AG Dt 00 ; cMPL A DTL“LASTLINE, AED_L_FIRSTLINE ; 4758 
44 Ab 0080 C6 9E 000E9 MOVAB AED_T_CURLINE, AED_L_LASTLINE + 4759 
40 A6 4 AG p} ocr 7$ cMPL AEDLBEGINLINE. AED“L_FIRSTLINE ; 4760 
68 OA 008 C6 9E oré MOVAB AED_T_CURLINE, AED_L_BEGINLINE > 4761 
40 A ¢ FC 8$ MOVAB AED"T"CURLINE, AED“L-FIRSTLINE : 476¢ 
44 AG 40 =A : CPL A DILTFIRSTLINE, AED-L_LASTLINE ; 476 
05 66 o £1 001 Bac #5, AED_L FLAGS. 9$ : 4764 
66 4020 F AA 001 1Cw2 #16416, ~AED L_FLAGS ; 4768 
cr aad At Raa A as ei 
7E 30 A6 9A OO1IA MOVZBL AEO_B COLOMN, -(SP) > 4772 
7E 4 Ab 9A 0011 MOV2BL AED"B“LINE, -(SP) : 
00906 CF 0 FB 001 CALLS #2, AED SEf_CURSOR ; 
VAG 008" EF $e 001 Bice #8200, KED_C_FLAGS+1 tthe 
50 6 DO 001 MOVL i" a > 4776 
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<> 
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y 4 RET ; 3 
01 A6 gh | 108: Bice AED_L_FLAGS+1 + 4779 ; 
18 00 6E ~ oo C aaues 38: (SPT,"#0, #24, ATR_ARGLIST + 4786 : 
E D4 0014 CLAL + 4787 ; 
8 AD 0006000¢ $f pd 14 MOVE abséce ATR ARGLIST : 4798 ; 
EC AD AE 9E O0014A MOVAB Y_ACE, ATR_ARGLIST+4 + 479 ; 
3E Bb 14F PUSHL ye + 4798 : 
C 001 CLRQ. 9 =( SP) : ; 
8 AD 9F 001 PUSHAB ATR_ARGLIST : : 
A6 9F 001 PUSHAB AED~G_OBJNAM : ; 
A6é 9F 001 SHAB AED"L“OBJTYP : ; 
7E A6 3C 001 MOVZWL i “W"OBJCHAN, =(SP) : ; 
6A Q FB 001 CALLS #7, SYSS$CHANGE_ACL : : 
008¢ c 0 00 0016 MOVL heb rf STATOS F : 
008¢ 6 1 BLBS ; 6 TATUS, 11$ ; 4799 ; 
04 Ab ose 3 1g pisb2 ke} _B_OPTIONS ; 4802 : 
£8 AD OOO900FF &8F pd 0174 11$: MOVL #590079, ATR_ARGLIST ; 4812 : 
EC AD 04 AE 9E 0017¢ MOVAB DUMMY ACE Es ATR_ARGLIST+4 ; 481 : 
: D4 001 } CLRL = ACL. "CONTE + 4814 : 
bp 01 PUSHL SP + 4819 : 
— 7C 90185 CLRQ.  =(SP) : : 
8 AD OF 0187 PUSHAB ATR_ARGLIST ; : 
C AG 9F OO1BA SHAB AED~Q_OBJNAM 3 : 
é Ab 3 0180 PUSHAB AED"L“OBJTYP : : 
7E Ag C 001 MOVZWL AED W~ OBJ CHAN ; : 
6A ‘ FB 00194 CALLS PSSCHANcE Phas : : 
o0sc §= 6 0 D 00197 MOVL RO, A D_L_STATOS ; F 
0 0 €8 0019C BLBS «RO. 138° : 4820 ; 
00000900 =s«&BF 0 D4 0019F CMPL RO. #2512 3 4 ; 
6 1 1A BEQL Ss : F 
000009E0 &F D1 OO1A CMPL RO #2528 + 4824 ; 
D 13 OO1AF BEQL«=Sséd15$ ; : 
04 Ab 0 88 0181 BISB2 a. AED_B_OPTIONS $ 4826 : 
03 66 0 0185 BBS #3. AED-L-FLAGS, 12$ + 4827 ; 
008 1 00189 BRW 08 ; : 
OA6 31 o1BC 128: BRW 9$ : 
EA AD 02 B80 OO1BF 13$:  MOVW #2, ATR_ARGLIST+2 : 4830 
£8 AD 04 AE 9B ic MOVZBW DUMMY_ATE, ATR_ARGLIST : 4831 
EC AD AE 9E 001C MOVAB DUMMY"ACE, ATR-ARGLIST+4 : 48 é 
3E bp 1€0 PUSHL SP : 483 
E 7C OOICF CLRQ. = =(SP) : 
8 AD 9F 00101 PUSHAB ATR_ARGLIST ; 
A6 OF 1p4 PUSHAB AED"Q_OBJNAM : 
A6 9F 001D PUSHAB AED"L"OBJTYP ; 
7E Ag C OO1DA MOVZWL AED JCHAN P) F 
6 F IE CALLS #7, SYSSCHANGE ACL ; 
008c = 6 0 00 OO1E MOVL RO. AED_L STATO : 
89 008¢ ; 166 BLBS_ AEO_L STATUS, 11$ : 4838 
04 Ab 168 BISB2 4, AED_B_OPTI + 4841 
OE 66 E1 OO1E C ; AEDTL“FLAGS, 14% + 4842 
DD OO1F PUSHL : 
DD OO1F PUSHL #21 : 
68 FB OOTF CALLS #2, SCRSERASE_PAGE : 
DD OO1FA PUSHL @# ; 
DD OO1FC PUSHL #21 F 


AEDSMAIN 16 ep-1 7: AX-11 Bliss-32 V4.0-742 Pa 65 AE! 
‘a - leave the editor a LEDT. 3 
vie e008 ACT_EXIT = | he ACL edi ‘ Het Set Lae Sta rey LEE ae 48 v6 
67 02 FB CALLS #2, SCRSSET_CURSOR 3 : 
008¢ DD 14$:  PUSHL AEO_L SFATUS : : 
69 ‘ CALLS #1, LIBSSIGNAL 3 ‘ 
72 f é BBS ‘ , AED_L_FLAGS, 21% : : 
30 A p 158: MOVL. AED_Q_LINET Haste: CURRENT. LINE ; 4850 : 
A 16$: MOV AED-O~ LINE TAB + 4851 : 
1 CMPL URRER LINE, R : : 
1 BNEQ : : : 
00 18 BRW 4 3 ‘ 
03 OA 008 5 1E 17$: BLBS (CURRENT LINE), 18$ ; 4854 : 
0c A : 188: tstt } (CURRENT. LINE) + 4855 : 
EA AD oi 8 A MOVW #1, ATR_ARGLIST+2 ; 4858 : 
E8 AD ¢ 8B mOvZeW @ é (CURRENT LINE). ATR ARGLIST ; 4859 : 
EC AD C Ae OD MOVL Veccur acy NT_CINE), ATR_ARGLIST+4 : 4860 “ 
6E OOFFFFFF D0 : MOVE a #16777215, ACL_ te ContERT : 4 86} : 
E pe 4} cLra. =< : : 
Fs AD 9F 0024 PUSHAB ATR_ARGLIST ; ; 
C AO OF 46 PUSHAB AED~Q_0BJ : : 
08 Ad 9F 0024 SHAB AED-L~OBJT : : 
7E ag C 0024 MOVZWL AED"W-OBJCHAN, <(SP) ; : 
6A ov f 5 CALLS #7, STSSCHANGE ACL ; : 
00sec C6 0 D 3 VL AED_L_STAT : : 
49 oosc ¢ F LBS rie STA 1 us + 4867 ; 
046 Ab 8 00250 BISB2 AED_B_OPf! : > 4870 : 
OE 66 E1 00261 BBC ; AED"L-FLAGS, 20 : 4871 3 
1 DD 00265 19$: | PUSHL F : 
15 DD 00267 PUSHL #21 : : 
68 0 FB 00269 CALLS #2, SCRSERASE_PAGE F : 
DD 0026C PUSHL @# : : 
15 OD $ PUSHL al F : 
67 02 FB CALLS SCRSSET_CURSOR ; : 
008 C6 DD 00273 20$: PUSHL AEb_ L_ STATUS ; 
69 o1 Fe 7 CALLS a. “LIBSSIGNAL ; 
0B 66 7A BBC , AED at oft Aes 228 : 
E 0 Ab GA OO027E 218 MOVZBL Si F 
7 4 AO OA MOVZBL i “LINE, = SP). ; 
§ 02 F CALLS sth set cUREOR ; 
0 008C¢ p 228: MOVL STATUS ; 
0 BITB 3 
51 50 b EF EXTZV #3, RO, RI 
51 14 6 83 : 9 CMP ZV : 4. AEO_L_WORSTERR, R1 
14 6 : A MOVL R g AED L_WORSTERR ; 
4 Ab BRB ers : 4 2 
52 i p ag 238: ROVL poi _LINE), CURRENT_LINE 4 23 
OE 66 E1 QO2AC 24$: BBC #3, AED_L_FLAGS, 25$ : 4 Ay 
DD 0028 PUSHL @# ; 
DD 0028 PUSHL #21 ; 
68 FB 0008 ALLS #2, SCRSERASE_PAGE : 
DD 00287 PUSHL : 
5 DD 00289 PUSHL #21 : 


Sm 


VOL=-000" = ACT_EXIT = Leave the ACL editor teat 47:52:28 YACLeDrS sme Sazbmatinesos1 Page eh 


CALLS wees CRSSET CURSOR 


67 2 FB : : 
000000006 8F DD Br 25$:  PUSHL ACLUPBA ATED : ‘ 
69 } Fe C CALLS i. EDs A SIG 3 : 
08 ¢ AED_L FLAGS 26s ; : 
E 30 A6 OA MOVZBL hes 8. COL ass : : 
5 4 AB OA ¢ MOVZBL BLIN SP) ; é 
6 F CALLS ogres CURSOR ; é 
00000000* B3 00¢D6 268: STL Bi SE phi Sbez> 3 : 
00000000" aF 16 6 03 0 ED 002DE CMP ZV #0, #3, AED_L_WORSTERR, #<AEDS_ACLUPDATEDE- : 
8 1 ES BGEQ 7$ ; 
14 a6 000000006 BF D A MOVL AEDS_ACLUPDATED, AED_L_WORSTERR ; 
0 p4 Fe 27$: cLRL RO ; 


3; Routine Size: 757 bytes, Routine Base: SCODE$S + 3285 


v6 


voee00 . FINISH_ACE = Tie off the current ACE 1S-s¢ Haat Fi $9:03:3§ AtieDTeshed AESMATICB S301 


3; 4 ZSBTTL ‘FINISH_A Ee - Tie off the current ACE’ : 
: 64 ROUTINE FINISH_ACE : NOVALUE = ; 
$ 646 ; 
s 22 i++ : 
; it | FUNCTIONAL DESCRIPTION: : 
: 46 } i This routine ties off the current ACE. I.e., it adds a final right : 
3 pris, ! paren if necessary. : 
: 6475 1 | CALLING SEQUENCE: : 
> 446 i FINISH_ACE () : 
; 44 ; : 
> 647 1! INPUT PARAMETERS: ; 
: oe 1i 
3: 6481 1! IMPLICIT IMPUTS: : 
2 $86 1 OWN storage 
3 446 1 | OUTPUT PARAMETERS: : 
3 rr 5 } ; none : 
3 648 1! IMPLICIT OUTPUTS: ; 
3 rr ' none : 
> 6490 1 | ROUTINE VALUE: ; 
3 ret ! none : 
> 649 1 | SIDE EFFECTS: ; 
3 44946 red 1! none $ 
> 4495 4913 1! ; 
: 496 4914 1 ie ; 
> 649 4915 1 ; 
> 4498 491 BEGIN 3 
: 1886 431 LOCAL : 
; $3R) 4319 PREV_LINE : REF SBBLOCK; ! Address of the previous Line : 
: 4208 4921 2 IF .AED_W_TOTALSIZE GTR 0 OR .SEGMENT_SIZE GTR 0 : 
: 4208 1958 ag OO : 
i 4506 4924 PREV_LINE = .AED_L_LASTLINE; ; 
> 450 4925 TEMP"LINE = .AED"B-LINE; F 
: 4308 49 o UNTIL PREV _LINECLINE_V-BEGINACE] : 
; 4309 49 a OR :PREV“LINELLINE-W-SIZEJ GTR O ; 
; e311 49 } r BEGIN ; 
$4 ig 4930 4 PREV_LINE = .PREV_LINECLINE_L_BLINK); ; 
3 4513 49 1 TEAP_LINE = [TEMPTLINE - 1; : 
; 4313 938 IF .PREV LINECLINE W SIZE] EQL O THEN RETURN; ; 
: 4 1 49 AED COPSEGMENT (.PREV LINE); ; 
> 651 4935 INSGUE (AED T_CURLINETLINE ( FLINK], .PREV_LINECLINE_L_BLINK)); ; 
3 $218 49 If -AED_L_BEGINLINE EOL .PREQ_LIN : 
> 451 49 HEN AED C BEGINLINE = AED T CURLINECLINE_L_FLINK); ; 
; 4520 49 : IF .AED_C FIRSTLINE EQ. -PREQ_LIN ; 
> 6521 49 THEN AED C_FIRSTLINE = AED_T_CURLINECLINE_L_FLINK); ; 


: 
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FINISH_ACE = Tie off the current ACE 1$-se0-1984 EMC teeae tte TET LES Page 198 


it If -AED LLASTLINE EQL PREV L INE 
HEN AEB C LASTLINE = AED_ GRLIN CLINE ,L FLINKI; 
IF _jlNPuT BUFFERC.SEGMENT“STZE = 1) EQL 

BEGIN 
4945 4 AED _SET_CURSOR (.AED B_LINE, .SEGMENT_SIZE); 
8 SEGAENT- “SIZE = .SEGMENT_ ioe : ‘s 
i38 1s JINPUT _BUFFERC.SEGMENT_SIZE = 1] NEQ %C")’ 
4 BEGIN 
6381 4 INPUT BUFFERC.SEGMENT SIZE) = 
4936 GMERT_SIZE = .SEGMERT si ze my 
4954 AED_L ler metus ENDACE) = 1; 
4955 NEW-TEXT_LINE = DZREPSEGRENT di 
4996 F -TEMP—LINE GEO” 
495 HEN 
4998 ri BEGIN 
4959 4 AED_POSITION (.NEW_TEXT_LINE); 
4960 4 AED-SET_CURSOR (.AED B CINE, -NEW_TEXT_LINECLINE -W_SIZE]); 
4961 4 ECHO_DESCCDSCS$W_LENGTH] = 1; 
496¢ 4 ECHO-DESC DSCSA“POINTER] = VECTOR CNEW_TEXT_LINECLINE_T_TEXT] 
4963 4 .NEQ_TEXT_LINECLINE_@_SIZE) - 1; ,BYTE; 
4964 4 AED_PUTOUTPUT (ECHO ); 
4965 4 AED-POSITION (AED OPE RSTLINED; 
4367 END; 
4369 RETURN; 
4971 END; ! End of routine FINISH_ACE 


001C 00000 FINISH_ACE: 
WORD 


. Save R2,R3,R 3 

54 9000" CF 9E 0000 MOVAB NEW TEXT 7 the. R4 ; 

3 000° CF 9€ 0000 MOVAB SEGMENT SIZE, R3 ; 

020¢ ¢3 B 990 TSTw  AED_W G TOTALSize F 

04 12 0001 BNEQ «=1$ ~ ; 

$F 98 Boot Bear | AgeMeNTSIZE 

52 a | po 0016 1$: MOVL AED_L -LASTLINE | PREV_LINE ; 

Fe OG FF6C C3 9A OOOIA MOVZBL ibee 5 Wie) P_LINE ; 
OE A A 0 2$ BLBS crnev lig). 3 5S ; 

0 7 BNEQ ; 

52 04 Ae D 9 MOVL itpney_ LINE), PREV_LINE ; 

F4 A p D DECL TEMP_LINE ; 

08 ¥ e i$ TSTW (PREV_LINE) ; 

A $: BEQL ; 

: Dd PUSHL PREV_LINE ; 

00006 CF FB 00639 CALLS #1, KED_COPSEGMENT : 


DSMAIN B-se 1984 Ax-11 $$-32 V4.0-742 Pa 9 
yO4~000 FINISH_ACE = Tie off the current ACE i 7300-1 38e 73 $5: I} ERCLeD 1°§ CJAEDMAIN. itt 31 9° 485 
04 83 FS A3 OE 0003 INSQUE po ig a4 (PREV_LINE) : 4935 
) A i i! ; cnet QED_L_BEGINLI » PREV. ‘rine 3: 49 
90 a3 £8 A 49 MOVAB AED_T_CURLINE, AED_L_BEGINLINE : 4937 
ae LIN : 
5 8 A 4E 5$ cmPL A DIL“FIRSTLINE, PREV_LINE 49 
88 a3 ‘BOA MOV AED_T_CURLINE, AED_L_FIRSTLINE + 4939 
5 BC A ; 9 6$ cmPL AEDILILASTLINE, P PREV-LINE + 4940 
8C a3 fB OA F MOV AED_T_CURLINE, AED_L_LASTLINE + 4941 
5 © 10064 7$ MOVZWL SEGMENT SIZE, RO + 4942 
N a bal ° : 
28 0B A340 t CPB NPUT BOFFER-1CROJ, #43 
7E 63 3¢ oF MOVZWL SEGMENT_SIZE, -(SP) + 4945 
TE FF6C A MOVZBL AED_B_LINE, =(SP) : 
00006 CF Fe 76 CALLS #2, AED_SEf CURSOR : 
& 10078 DECW ESE “SIZE + 4946 
50 63 3C 0007D 8$ MOVZ2WL SEGMENT-SIZE, RO + 4948 
29 08 A340 i CPB INP T_BOFFER-1CROJ, #41 ; 
OC A340 § 90 00 MOVE «#411, INPUT BUFFERCROJ + 4951 
63 B ¢ INCW SEGMENT SIZE + 4952 
50 8c OCA p DO08E 9$ MOVL Dt LASTLINe., RO + 4954 
OA AO 0 9 BISB2 ‘ 6(RO) ; 
00006 CF 0 F 96 CALLS AED_REPSEGMENT : 4955 
64 DO 00098 MOVL RO. NEW" TEXT_LINE ; 
FO FE RRO og, | CSL TRAP LURE  egeee 
64 DD O00A3 PUSHL NEW TEXT_LINE : 4959 
00006 cr 01 FB O00A5 CALLS #1, AED POSITION : 
0 64 DO OOOAA VL NEW_TEXT_LINE, RO + 4960 
7E 08 a0 C OO00AD MOVZWL 8(RO), ts? F 
7E FF6C C3 9A 00081 MOV2BL AED_B_LINE, -(SP) ; 
00006 CF 02 FB 000B6 CALLS #2, AED_SET_CURSOR : 
AG 01 B80 000BB OVW #1, ECHO_DESC + 4961 
51 64 DO 000BF OVL §§ NEW_TEXT "LINE, R1 : 496 
50 08 Al 3¢ doce MOVZWL 8(RT) : 496 
ollie be Re OF dooce ROVAB 19(R15ERQI. ECHO_DESC+4 £4964 
coone cr gc HE BB Oat, BASH fag EDs 96s 
00006 CF 01 FB 00007 CALLS #1, “heb _POSITION F 
04 000DC 11$: _—RET : 4971 


3 Routine Size: 221 bytes, Routine Base: S$CODE$S + 357A 


3 4554 $376 1 
3 4555 4975 1 END 
4556 4974 0 ELUDOM 


; PSECT SUMMARY 
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DSMAIN 4 247: AX-11 Blis Pa 70 
yon -000 FINISH_ACE = Tie off the current ACE 12=808-1 382 47:65:35 ACLEDT.SRC aefaes WSoe1 oe 409 
; Name Bytes Attributes 
; AED eee 1 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 

3 NOVEC, WRT, RD WOE K -NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$ c0oes 13 NOVEC.NOWRT, RD , FY LCL, REL, CON,NOPIC,ALIGN(2) 
; IT 60 NOVEC, *NOWRT, RD *NO x MOSHI LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eceecece Symbols eccoeseco Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: Syst 18). LIB.L32;1 18619 54 0 1000 00:01.8 
; ~$255$DUA28:CSYSLIBITPAMAC.L32;1 42 0 0 14 00:00.1 
COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:AEDMAIN/OBJ=OBJ$:AEDMAIN MSRC$:AEDMAIN/UPDATE=(ENH$: AEDMAIN) 
; Size: 13911 code + 1940 data bytes 

Run Time 215.4 

Elap Ue Time 09:51.0 
: Lines/CPU Min: 1527 


Lexemes/CPU-Min: 18 8 
penery Used: 485 pages 
Compilation Complete 


N03 fHBT13A- SE dik iy : ENT CORPORATION 
VVV3 vax/vMS v4.0 | TARY. 


I 
F 


NT CORPORATION 
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VAX/VMS V4.0 


